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Dibujando  cotí  ios 


“Commodore  World” 

aparte  de  venderse  generalmente  en  kioscos. 

se  encuentra  asimismo  a la  venta 
en  los  siguientes  distribuidores  de  Commodore  y librerías. 


ALIC  ft  NTE 

Casa  Wagner,  c/  Juan  Carlos  1,  37,  Elda. 

TeL  (965)  39  03  96, 

Ferretería  Progreso,  c/  General  Jordana,  28,  Elda. 

TeL  (965)  38  1 1 45, 

BADAJOS 

Control  Sistemas.  Avda.  Santa  Marina,  25A. 

TeL  (924)  25  88  00 

BARCELONA 

Computer  Service,  Avda,  Abad  Marcet,  325.  Tarrasa. 
TeL  (93)  788  63  77 

Librería  Emilia  Pérez  Radua.  c/Mayor,  35,  Castellar  del 
Vatlés.  TeL  (93)  714  89  51. 

Librería  MicheL  Ronda  Guinardo,  1,  Sardañola. 

Mozart.  c/  Jaime  L 145.  Mollet,  TeL  (93)  593  75  01 

BURGOS 

E.LS.A.  c/  Madrid,  4,  TeL  (947)  20  46  24. 

CANARIAS 

Relax  Rambla  de  Pulido,  85,  Santa  Cruz  de  Tenerife. 
TeL  (922)  28  37  05. 

CIUDAD  REAL 

CISA.  c/  D.  Víctor,  15,  Tomelloso. 

Tels.  (926)  51  00  07  - 51  15  72. 

Electrónica  Turrillo.  c/  Pedrera  Baja,  7. 

TeL  (926)  22  38  67, 

LA  CORUftA 

Cetromc,  S,  L,  c/  Palomar,  22  Bajo.  TeL  (981 ) 27  26  54. 
Photo  Copy.  c/  Teresa  Herrera,  9.  TeL  (981)  21  34  21, 
Sanlusa,  S.  L.  San  Luis,  46  ai  50.  TeL  (981)  23  07  49, 


HUELVA 

Computerlog,  S,  A.  c/  Tendaleras,  15. 

TeL  (955)  25  81  99 

MADRID 

Chips  + Tips  - C/Puerto  Rico,  21-23 

Librería  Díaz  de  Santos,  c/  Lagasca,  98. 

Librería  García  Pena,  c/  Cavanilles,  52. 

Librería  Ra-Ma.  c/  Chiquinquira,  28.  Urb.  Columbía. 
Microtronic.  c/  Quinta  del  SoL  39.  Las  Rozas. 

Multiprensa,  c/  Casteíló,  37. 

País  de  los  Microordenadores.  Bravo  Morillo,  18. 

Sonitel  Central,  c/  Clara  del  Rey,  24. 

MURCIA 

Procoinsa.  Ronda  Norte,  27,  TeL  (968)  23  94  49. 

PALMA  DE  MAiLORCA 

AEF  c/  Balmes,  13,  TeL  (971)  27  36  66. 

PONF1RRAPA 

Micro  Bierzo.  c/  Carlos  I,  2.  TeL  (987)  41  74  21. 

SALAMANCA 

Compusoft.  c/  Arco,  1. 

SANTANDER 

Librería  Hernández.  San  Francisco,  15,  TeL  (942)  22  53  30 

S ANT| A G O D E COM POSTELA 

GestyComputer.  Avda.  Romero  Donallo,  25. 

TeL  (981)  59  87  54, 

SEVILLA 

Papelería  Mora,  c/  Santa  Cruz,  5. 

TARRAGONA 

Oficomplet,  Plaza  de  la  Cinta,  6.  Tortosa, 

TeL  (977)  44  14  50. 


GERONA 

Dígít  Informática,  c/  Banyoles,  13.  Barrí  de  Sant 
Qlot.  TeL  (972)  26  94  01. 


ZARAGOZA 

ADA  Computer.  Centro  Independencia. 

Paseo  Independencia,  24-26.  TeL  (976)  29  85  62 


TIRADA 


COMMODOR€  WORLD 


Certificación  de  28.000  ejemplares 

Según  certificado  firmcido  por  lo  auditorio  internacional  D€LOITT€  HflSKINS  S€USf  S. 

el  5 de  marzo  de  1 984, 

la  tirada  de  Commodore  UJorld  es  de  28.000  ejemplares. 

Este  certificado  se  encuentra  en  las  oficinas  de  SXM.S,ft,  para  comprobación 

de  cualquier  persono  o entidad  que  Jo  desee. 
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OS  ESPERAMOS! 


Commodore  World  es  redactado  en  colaboración  entre  Microelectrónica  y Control-Commodore  y SIMSA 

EQUIPO 

Manuel  AMADO;  Jóse  Luis  ERRAZQU1N;  Miguel  A.  H.  HIDALGO;  María  LOPEZ;  Juan  MARTINEZ 
Pere  MASATS;  Jeffrey  MILLS;  Victoria  MORALES;  Fernando  M.  RODRIGUEZ;  Diego  ROMERO; 

Albert  SANGLAS;  Jordí  SASTRE;  Valerie  SHANKS.,. 

...Y  NUESTROS  LECTORES 


SIMSA 

Coordinador  María  López 
Pedro  Murugura,  4-8gB  — Madrid-I6  — TeL:  (91) 

Delegación  en  Barcelona; 

Sant  Gervasi  de  Cassoles,  39  despacho  4 
Barcelona-22  — TeL:  (931  212  73  45 


MICROELECTRONICA 
Y CONTROL-COMMODORE 

Coordinador  Pere  Ma&ats 
Taquígrafo  Serra,  7-5- 
Barceiona-29 


Imprime:  IBERDOS,  S,  A,  Germán  Pérez  Carrasco,  24.  Madrid-27 
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Viaje  a Inglaterra 


Sorteo  amigos 
colaboradores 


Amigos 

de  RAMY  Y ROMO 


Ya!  En  nuestro  último  número  decíamos  que  era 
muy  posible  que  este  mes  tuviéramos  ya 
nuestro  suscripto!  ns  5.000.  ganador  automática- 
mente del  viaje  a Estados  Unidos.  Pues  asi  ha  sida, 
pur  lo  que  ya  nos  encontramos  listos  para  efectuar  el 
sorteo  del  viaje  a Inglaterra  entre  todos  los  demás 
suscripta  res  el  mismo  día  que  tendrá  Jugar  el  sorteo 
se  metra  I de  regatos  entre  nuestro  gran  equipo  de 
colaboradores  de  programas  y magia.  Asimismo  se 
Sortearán  los  regalas  entre  las  que  nos  lian  ayudado 
a buscar  los  nombres  para  los  chavales  de  las  aven- 
turas de  RAMY  y ROMO 

LUGAR  Y FECHA  DEL  SORTEO 

EJ  sorteo  tendrá  lugar  el  lunes  día  18  de  1 uní  o a las 
7.30  de  la  tarde  en  los  salones  del  Colegio  Engiish 
Montessori  School,  c/  Eduardo  Vela.  10  - Ara  vaca 
Madrid-23. 

La  pagina  6 está  completamente  dedicada  a la 
relación  de  los  premios  que  se  sortearán  las  firmas 
que  lian  contribuido  en  los  concursos  y los  detalles 
sobre  los  dos  viaies. 


NUMERO  DE  SUSCRIPTOR 

Habrá  un  pequeño  número  de  nuevos  suscripto- 
res  que  observarán  con  cierto  asombro  que  tie- 
nen un  número  de  suscrlptor  Inferior  al  5.000,  La 
razón  de  esta  "anomalía"  se  debe  a haber  quedada 
"vacante"  ese  número  por  dos  motivos  principales: 
en  primer  lugar  alguna  baja  que  se  ha  producido  de 
entre  los  sucriptores  primitivos  de  Club  Commodore 
y en  segundo  lugar  parque  algunos  antiguos  suscnp- 
tores  no  se  dieron  cuenta  de  que  Commodore  World 
era  continuación  de  Club  Commodore  y...  se  suscri- 
bieron de  nuevo,  encontrándose  con  [dos  suscrip- 
ciones! No  quisimos  "recuperar ' estos  números 
vacantes  durante  la  carrera  hacia  el  5.000  a tin  de 
que  no  hubiera  suspicacias  de  engaño...  y...  todos 
andamos  ya  un  poco  escarmentados  de  '■inteligen- 
tes" y obscuras  campañas  de  promoción  y similares. 
Una  vez  que  el  5.000  ha  salido,  y ya  a nadie  le 
afecta,  tiernos  decidido  recuperar  estos  números 
vacantes.  Por  otro  lado,  si  esos  números  "recupera- 
dos" llegados  después  del  5.000  enlran  en  el  sorteo 
a Londres,  no  es  justo  que  los  que  han  llegado  igual 
mente  con  horas  de  diferencia  y que  tengan  el  5.001 
ó 5.010,  no  puedan  entrar.  Par  esta  razón  se  han 
admitido  a sortea  todas  los  llegados  hasta  hoy. 

-**Y  PARA  LOS  SUSCRIPTORE5 
DEL  FUTURO****  ¿QUE? 

Bueno,  vale,  tranquilos.  Ya  estamos  pensando  en 
algo  para  el  número  8.000...  pero...  de 
momento  tenemos  la  Imaginación  extenuada  y 
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Convocatoria  del  Primer  Concurso 
Nacional  Escolar  de  Programación 
patrocinado  por  Commodore  World 
y Microelectrónica  y Control 


Come  ya  anunciamos  en  nuestro  número  ante- 
rior publicarnos  hoy  oficialmente  la  convocatoria 
de  este  concurso  que  pretendemos  que  sea  un 
importante  acontecimiento  en  el  mundo  de  ta 
Informática  española  y que  signifique  un  gran  paso 
en  su  desarrollo 


BASES 

l u Pod rá  n pa rtici par  en  el  mismo  todos  a que- 
líos  niños  y jovenes  que  estén  en  edad  escolar 
pre-umversitaria  o equivalente. 

2^  Habrá  tres  grupos  definidos: 

a)  E.G.B, 

b)  ELLLP. 

c)  E.P. 

3°  Los  trabajos  pueden  ser  presentados  par 

equipos  o por  individuales. 

4Ü  Los  trabajos  presentados  por  equipos 
deben  especificar: 

a)  Nombre  dei  equipo. 

b)  Centro  al  que  representan. 

e)  Nivel  de  enseñanza  que  cursan  (E.G  B - 

B.U.P.-F.P.). 

d)  Nombre  del  profesor,  monitor  o coordinador 
5°  Los  trabajos  presentados  por  individuales 

deben  rr  acompañados  de: 

a)  Nombre  del  autor. 

b)  Edad  y curso  que  estudia. 

c)  (¡)  Si  concursa  representando  a un  centro: 
nombre  del  mismo  y nombre  del  profesor 
responsable. 

(¡j)  Si  concursa  par  sí  mismo,  nombre  del 
colegio  donde  estudia  y firma  del  director  o 
profesor  responsable  avalando  que  en 
tanto  cuanto  conoce  al  concursante  et  tra- 
bajo que  presenta  es  suyo  propio. 

6°  El  tema  del  concurso  es  la  realización  de  un 
programa  educativo  sobre  materia  libre  a elegir  por 
os  concursantes.  La  extensión  del  programa  es 
también  de  libre  elección, 

P Cada  centro  puede  presentar  el  número  de 


equipos  o concursantes  individuales  que  desee, 
asimismo  caria  equipo  o concursante  puede  enviar 
el  número  de  trabajas  que  desee,  siempre  que 
cada  trabajo  sea  enviado  por  separado. 

8Ü  Los  trabajos  deben  incluir: 

a}  Nombre  del  programa, 

b)  Nombre  del  computador  para  el  que  está 
confeccionado  y periféricos  adicionales 
que  se  necesitan  (si  fuese  el  caso). 

c)  Objetivo  del  programa. 

d)  Explicación  detallada  del  programa  (a 
máquina  o impresora), 

e)  Listado  completo  a impresora. 

f)  Grabación  en  cinta  o disco. 

9-  Lodos  los  trabajos  presentados  deben  sei 
originales  e inéditos, 

10°  Los  centros  que  pueden  presentar  equi- 
pos o concursantes  individuales  son: 

a)  Todo  colegio  escuela  o instituto,  público  o 
privado,  que  imparta  las  enseñanzas  de 
E.G.B.,  B.U.P.  o F. P . 

b)  Centros  de  Informática  que  tengan  grupos 
ele  enseñanza  especifica  para  niños  y jóve- 
nes menores  de  L3  años. 

c)  Clubs  de  informática  que  mantengan  acti 
vidades  específicas  para  niños  y jóvenes 
menores  de  18  años. 

11°  Los  trabajos  deben  ser  enviados  antes  del 
31  de  diciembre  de  1984. 

1 2C  El  falla  del  concursa  se  dará  a conocer  en 
Ja  primera  semana  de  marzo  de  1985  en  el  lugar, 
techa  y hora  que  se  indicarán 

13-  Los  trabaios  premiados  quedarán  propie- 
dad de  los  patrocinadores. 

Qursiéramos  poder  publicar  en  esto  numero, 
¡unto  con  las  bases,  el  número  y cuantía  exacta  de 
¡os  premios,  pues  aunque  podemos  ya  adelantar 
que  serán  importantes,  tanto  para  los  concursantes 
como  para  las  centros  presentadores,  todavía  no 
han  sida  totalmente  determinados.  Sin  embargo, 
liemos  decidido  presentar  ya  Jas  bases  para  que 
centros  y concursantes  puedan  ya  Ir  comenzando 
a prepararse. 


tomándose  un  descanso.  Sin  embargo  prometemos 
que  haremos  algo  que  esté  muy  bien  y hemos 
demostrado  que  lo  que  prometemos  lo  cumplimos 
I- excepto  Jos  repartos  ocasionales  de  nuestras  sus 
cripciones  en  que  tenemos  que  contar  con  la  "INVA- 
LIGSA  DESCOLABORACION'  de  nuestro  ¡ncompara 
ble  servicio  —es  un  decir—  de  CORREOS  ■ pero,  esc 
sír  numero  que  nos  reclaman,  número  que  enviamos 
de  nuevo)  por  cierto.,, 

..*AYUDA  E IPEAS*** 

Si  a algún  lector  se  le  ocurre  alguna  forma  de 
envío  de  la  revista  que  no  sea  altamente 
gravosa  y que  ofrezca  una  alternativa  a Correos  fe 
agradeceremos  enormemente  la  sugerencia.  Distri 


buidores  - repartidores  cíe  provincias  etc,,  agrade- 
ceremos presupuestos. 


NUMEROS  ATRASADOS 
CLUB  COMMODORE 
V COMMODORE  WORLD 

Vamos  a ver  CLUB  COMMODORE,  publicada  por 
MICROELECTRONICA  Y CONTROL  publicó  16 
números  del  U al  15  entre  octubre  de  1982  y enero 
de  1984. 

COMMODORE  WORLD,  publicada  por  S.I.M.SA, 
editorial  totalmente  independiente  de  MEC  y de  la 
casa  Commodore,  comenzó  a publicar  su  número  1 
en  febrero  de  1984,  tras  haber  llegado  a un  acuerdo 
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Fue  uri  ú\d  de  excitación  y nervios.  Se  estaban  cuando  tiene  tiempo  libre.  fábrica  de  circuitos  integrados  de  Commodore  en 

haciendo  suscripciones  en  Informal,  en  ti  Corte  Cuando  le  Ifamamns  estaba  trabajando  en  el  Pe n nsy Iva n ia . Decimos  que  Ciego  va  a ir  con  él  y la 

Inglés,  llegaban  por  teléfono  a Madrid  y a la  oficina  campo  con  su  padre,  hablarnos  con  su  hermana  y le  madre  nos  pregunta  sobre  Diego  — Al  decir  que 

de  Barcelona.  Habíamos  montado  un  complicado  tin-  volvimos  a llamar  una  hora  más  tarde.  Pensaba  que  tiene  24  años  y comentai  que  es  también  la  primera 

glado  para  estar  todos  en  continuo  contacto  según  se  era  una  broma  de  su  hermana,  no  se  lo  podía  creer.  vez  que  va  a América  la  madre  exclama:  JL¡Dios 

iban  formalizando  las  suscripciones..  nu  4.995.,.  v pensaba  que  su  suscripción  habría  Ifegado  dema-  bendito!,  ¡que  harán  esos  dos  allí,''  Le  aseguramos 

llega  el  correo  con...  17  nuevas  suscripciones,  ¿Cómo  srado  tarde...  Cuando  le  preguntamos  si  prefería  que  Diego  es  una  persona  muy  seria  y responsable, 

decidíamos  quién  de  ese  nuevo  lote  era  el  5 00Ü7  cambiar  el  viaje  poi  una  cantidad  en  metálico.  ¡Ni  que  habla  perfectamente  bien  el  inglés  y que  alguien 

Unica  solución  justa;  echarlo  a suertes.  Nos  fuimos  hablar!  estará  allí  esperándoles. 

Iodos  a Informal  a Barcal  una.  Avisamos  a Mi  croe  lee-  Nos  fuimos  a Sari!  Jaume  de  Uierca  a conocer  a Cuando  hablamos  con  Joan  todavía  pensábamos 
trónica  y Control  y alli,  en  el  stand  de  Commodore  Joan  y su  familia  No  quieren  díf  hablar  de  cambiar  el  que  el  via¡e  seria  de  1 semana  Desde  entonces 

World  se  efectuó  el  sorteo  publico:  — ' Joan  Pujrula  i viaje  por  dinero  Lo  más  importante  para  ellos  es  la  hemos  recibido  invitación  de  la  revista  RUN,  con 

Juncá—  18  años  - Sant  Jaume  de  I lierca  [Gerona}  educación  de  Jos  liqos.  María,  su  hermana,  estudia  excursión  en  helicóptero  y el  viaje  se  ha  extendido  a 

C-G4  " en  la  Universidad  de  Barcelona.  El  padre  nos  dice:  1U  días,  [Para  mayores  detalles  sobre  el  v^aje  leei  la 

Joan  vive  en  un  pueblo  de  8ÜO  habitantes  al  pre  'Es  casj  increíble,  yo  nunca  tuve  suerte  en  lotería  ni  página  siguiente.) 

de  los  Pirineos  catalanes.  Es  hijo  de  agricultores  y cosas  de  esas,  nunca  me  focó  nada.  Esto  es  una  Nos  despedimos  de  ia  familia  Rujióla  con  quien 

estudia  4^  grado  de  F.P.  rama  de  Electricidad  en  Oíot,  oportunidad  u mea  para  Joan  . A Joan  lo  que  le  hace  pasamos  un  dia  inolvidable  en  un  bellísimo  valle 

a 13  kilómetros  de  su  pueblo  y ayuda  a su  padre  una  gran  ilustón  es  la  visita  a ia  Moss  Lechnology,  ia  montañés. 


con  MEC  para  absorber  dentro  de  sus  páginas  a Club 
Commodore  y hacerse  cargo,  asimismo,  de  los  sus- 
criptos que  tenia. 

Aquellos  intiguos  susenptares  de  Club  Commo’ 
dore  ;t  quienes  les  falten  los  n limeros  13,  14  y/ ó 15. 
por  favor  pedidlos  a MEC  en  Barcelona,  escribid  a 
Rere  Masats  Nosotros  no  los  tenemos  m somos  res 
porsables  de  CLUB  CQMMüDURL  Sólo  contamos 
con  un  par  de  colecciones  para  referencia  y poder 


oresta  ¡ un  servicio  de  venta  de  fotocopias  para  aque- 
les lectores  que  lo  deseen. 

Los  suscriptores,  antiguos  o nuevos,  que  no  hayan 
recibido  algún  numero  de  COMMODORE  WORLD, 
pedídnoslo,  por  favor  a S.I.M.S.A.  ya  que  MEC  no  los 
tiene  m es  responsable  de  ellos. 

Pidiendo  cada  cosa  a su  sitio  hará  que  lo  recibáis 
me¡or  y más  rápidamente. 


PRECIO  DE 

COMMODORE  WORLD 


Finalmente,  recordamos  a todos  que  a partir  dei 
1Q  de  julio  el  precio  de  Commodore  World 
aumentará  en  un  15%  El  precio  de  venta  al  publico 
será  de  315  pesetas  y el  .le  la  suscripción  de  2.530 
al  año  fl  1 números). 
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FIRMAS  COLABORADORAS 


COMMODGRE  BUSINESS  MACHINES 
CGMPUTERWORLD/ ESPAÑA 
ENGLISH  IVIO IMTESSOR I SCHOOL 
I BERCHARTER 
INDESCOMP 


MICROELECTRONICA  Y CONTROL  [MECj 
MICRO  INFORMATICA  Y SOFT  (MISSA) 

S I M S Ah  - CÜMMODORE  WORLD 
RUN  (EE.UU.) 


ESTADOS  UNIDOS 

El  viaje  a EE.UU.  que  imcialrnente  estaba 
programado  para  una  semana  ha  crecido  hasta  cum- 
plir 10  días.  El  viaje  y aloja  míe  rito  en  Nuevo  York 
estará  a cargo  de  S.l.  M.S.A  La  Casa  Corrí  mudare  Je 
EE  UU  lia  invitado  a Juan  y Diego  a pasar  dos  dias  en 
f ladelfia,  irte lu yenda  ¡as  viajes  desde  Nueva  York  y 
vuelta,  para  visitar  la  Fábrica  de  Ensamblaje  de 
Commüdore  Business  Machines  y la  Fabrica  de  Cir- 
cuitos Integrados  Moss  Technology,  ambas  en 
Pennsyivania.  Asimismo.  Ja  revista  RUN.  hermana 
gemela  de  Commüdore  World  en  América,  dedicada 
especifica  mente  a ¡os  equipes  Commüdore,  les  ha 
n vitado  a pasar  tres  dias  en  Basten,  incluyendo  les 
viajes,  desde  donde  les  trasladará  en  helicóptero  a la 
base  de  la  editorial  en  Petersborough. 

. 'i  --"I*  . 

Ibercharter  la  agencia  de  viajes  con  quien  se  con 
trató  el  servicia  lia  querido  añadir  su  granito  de 
arena  invitando  a Joan  y Diego  a un  tour  completo  de 
un  dia  del  Alto  y Bajo  Manhattan. 


VIAJE  A INGLATERRA 

El  viaje  de  una  semana  a Inglaterra  estará  total 
mente  a cargo  de  Microelectrónica  y Control  Una 
persona  de  "MFC  acompañará  a!  ganador  er  este 
viaje.  Desde  Londres  se  trasladarán  a Cor by,  en  el 
norte  del  país  para  visitar  las  instalaciones  de  COM- 
MODQRE  y la  Fábrica  de  Ensamblaje. 

Es  una  pena  que  por  un  mes  hemos  perdido  el 
Commodore  Computer  Show  que  se  celebra  en  Lan- 
dres del  7 ai  9 de  ¡unió,  aunque  siendo  este  un 
importante  acontecimiento  anual,  Callos  Domenech 
ya  le  esta  dando  vueltas  en  ¡a  cabeza  para  organizar 
algo  que  permita  llevar  a nuestros  lectores  al  Show- 
do!  año  que  viene, 

sorteo  tmm 

LOS  COLABORADORES 
DE  PROGRAMAS,  MAGIA 
Y AMIGOS  DE  RAMY  Y ROMO 

S I. M.S.A  sorteará  tres  premios  de  lb.ÜQÜ  10.Ü0Ü 


y 5.ÜUU  pesetas  entre  las  com  modorra  nos  que  han 
contribuida  con  programas  y.  otros  tres  de  1000 
2.0QÜ  y 1. 000  péselas  entre  aquellos  que  ñus  llar 
estado  ecnando  una  mano  a todos  con  trucos  y rece 
tas  mágicas.  Asimismo,  Microelectrónica  y Control 

dará  tres  premios  paí>i  cada  una  de  las  dos  i.ateyo 
rías  consistentes  en  soít  y juegos,  equivalentes  en 
valor  a ios  premios  en  metálico  dados  por  S I M S.A 
Igualmente  se  sortearán  dos  reglas  reloj -c a leu  lad ora 
y 6 juegos  para  cada  categoría. 

Pablo  Nistal,  ganador  del  concurso  Amigos  de 
RAMY  y ROMO,  ha  recibido  una  regla-reiú|- 
calcuiadora  y un  luego  para  su  Corrí  mudare  Entre 
todas  los  demás  commod  aria  nos  que  han  participado 
en  la  búsqueda  de  nombres  para  los  amiguetes 
humanos  de  las  memorias  RAMY  y ROMO  se  sortea 
rán  I regla- reloj -calculadora  y un  | Liego 

Las  reglas  han  srdü  donadas  por  CQMPUfER- 
WORLD/ ESPAÑA,  4 luegos  por  Micromíor mélica  y 
Soít  MISSA  y 10  POR  INDESCÜMP 


Deseamos  expresar  nuestro  más  sincero  agradecimiento  a las  firmas  que  han  contribuido  al  éxito  de  nuestros  concursos  y hacer  una  pequeña  presentación  de 
las  mismas. 


COMPUTER  WORLD /ESPAÑA-" — — — 

COMPUTER  WORLD/ ESPAÑA  el  único  periódico  de  la  informática  en  España,  lanza  su  primer  número  el  13  de  mayo  de  1981  Sale  los  miércoles  de  todas  las 
semanas  y solamente  se  puede  adquirir  por  suscripción  El  pasada  mes  de  junio  lanzó  MicroSistemas  dedicada  a los  ordenadores  personales,  mensual  y con 
venta  abierta  al  público  o por  suscripción.  Pertenece  a la  cadena  C.W.  Communications,  la  primera  compañía  Internacional  dedicada  solamente  a publicaciones 
de  informática  en  24  países,  tiene  su  sede  en  Madrid.  Barquillo,  21  y oficinas  en  Gravina,  13  y en  Barcelona,  Sari  Gervasio  de  Cassoles,  39. 


ENGLISH  MONTESSORI  SCHOOL 

El  Colegio  English  Montessori  fue  fundado  en  1973  por  Milagros  King,  esta  reconocido  por  el  M^de  Educación  Español  como  colegio  extranjero  Inglés  y por 
el  MJ  Británico  de  Educación  por  lo  que  sus  estudios  son  automáticamente  convalidados.  Los  estudios  se  pueden  cursar  desde  la  edad  de  Kindergarten.  En  este 
momento  están  montando  un  laboratorio  de  computadores  que  comenzará  a funcionar  en  su  primera  fase  en  julio  con  cursos  de  verano  y el  próximo  septiembre 
para  todo  el  Colegio. 

Tiene  3 centros  en  Madrid,  uno  en  Aravaca  en  c/Eduardo  Veía,  10  y dos  en  Chamartin,  c/  Triana,  65  y Alfonso  XIII,  40. 


— IBERCHARTER- — 

Ibercharter  es  algo  más  que  una  agencia  de  viajes  ■ Ángel,  uno  de  sus  directores  es  capaz  de  organizar  desde  una  excursión  al  Museo  del  Prado  a una 
expedición  aí  Everesl  y a los  mejores  precios  posibles  Tiene  su  propia  organización  mayorista  para  Canarias,  Baleares  y Grecia  y actúan  eumu  eficaz  agencia  para 
cualquier  otra  parte  del  mundo.  Sus  oficinas  se  encuentran  en  Madrid-9  - Alcalá.  1SL  y Barcelona -3  - Vía  Layetana,  33. 


INDESCÜMP 


Casi  no  es  necesario  hacer  una  presentación  de  INDESCÜMP,  una  de  las  casas  más  prestigiosas  y conocidas  en  la  producción  y venia  de  Sort  y Hard  para 
ordenadores  personales  y una  de  las  pocas  firmas  españolas  que  exportan  al  extranjero,  este  tipa  de  productos,  llegando  a alcanzar  el  n°  1 de  ventas  en 
Inglaterra  con  el  mego  de  'La  Pulga'  Es  casi  imposible  poseer  un  Commodure  o un  Spectmm  y no  contar  con  alguna  cinta  de  la  casa  Indescomp  Uno  de  sus  más 
importantes  productos,  del  que  se  sienten  legítimamente  orgullosos,  es  la  placa  que  convierte  el  VI C,  de  un  22  columnas  en  un4ü  * 80.  colocándolo  en  una  1.a 
posición  en  la  familia  de  los  personales,  Tiene  su  sede  en  Madrid-16,  en  el  Paseo  de  la  Castellana,  179 


: MICRO  INFORMATICA  Y SOFT  (M,I.S.S*A,) — 

Compañía  de  reciente  creación  ha  aparecido  en  el  mercado  con  p raye  utos  muy  ambiciosos  de  traer  a España  los  últimos  y meiores  productos  de  soft  y hard 
para  ordenadores  personales.  Su  piimer  lanzamiento  han  sido  los  siempre  esperados  juegas  para  los  Cmnmodore.  Queriendo  poder  ofrecer  sus  productos  a los 
precios  más  competitivos,  ha  decidido  lanzarlos  par  el  sistema  de  Mail  Order  (Venta  por  Correo).  Tiene  su  sede,  imeiatmente,  en  Madrrd-16  - C/  Maestro  Chapi,  15 
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AMIGOS  Di  RAMY  Y ROMO:  KBIT  Y KBJTA 


No  podemos  quejamos  de  la  gran  respuesta  que  ha  habido  para  encontrar  nombre  “informático1*  a los  dos  exploradores  del  mundo  de! 

computador.  Ha  habido  para  todos  los  gustos.  El  ganador  io  hemos  elegido  por  votación  entre  todo  el  equipo  de  redacción  y casi  por 
unanimidad:  KBIT  el  niño  y KBITA  la  niña  cuyo  padrino  ha  sido  Pahlo  Nistal  que  vive  en  c/  El  Empecinado,  46  de  Móstoles.  Entre  todos 
los  demás  participantes,  aspirantes  a padrinos  se  sortearán  2 regalos  (ver  pág,  6), 


PO#(Q(JE  Soy  UAJA  A//A/A 
£ ALG>  Ua/OS  AA/r>Ai^ 


) i Pus*  £SW  FjtrtA 
/ T j&o  f£  /4  p£&00t*0 
AL  btSvjAvfe  < 

¿ MtáA.  Po#€Art€  £?v 

£*  Ü/HSTA  ¿e  es t£  544 

Cí&hJ  , > 


Lamentamos  que,  en  el  número  4, 
correspondiente  al  mes  de  mayo,  la 
imprenta  “metiese  la  pata  hasta  el 
fondo”  en  dos  anuncios. 

***  Ln  la  página  61,  en  el  anuncio  de 
1RON1K,  la  línea  11 — Alquiler  de  cartu- 
chos de  juegos”  debería  estar  colocada 
debajo  de  la  linca  “ — Accesorios  para  el 
Commodore  y V1C  20”.  y encima  de  la 
que  dice  “Libros  y revistas”. 

* **  En  la  página  67,  en  el  anuncio  de 
TECNHEL,  la  linca  que  dice  “—Pro- 
grama de  XXXXXXXXXXXXX”  la 
colocaron  en  imprenta  y desconocemos 
los  motivos  que  tuvieron  para  hacerlo. 


Y la  imprenta  sigue  empeñada  en 
cambiar  !a  famosa  linea  del  programa 
para  leer  el  directorio...  Este  programa 
que  venía  incompleto  en  el  manual  en 
español,  que  corregimos  en  el  número  3 
en  la  sección  “correcciones  del  manual”, 
que  volvimos  a corregir  en  el  número  4, 
y que  todavía  no  hemos  conseguido  que 
salga  la  línea  bien  impresa.  Lo  que  en  el 
número  3 apareció  como  espacios  y en  el 
4 como  paréntesis,  realmente  son  los 
símbolos  de  “menor  que”  y “mayor 
que“,  es  decir:  <> 

La  línea  sería: 

530  ÍF  ASO CHRS(9ó)  THEN  IF  AS<> 


CHR$(lóO)  THEN  RS=R$+A$ 

Esperamos  que  esta  ve/  salgan  los 
símbolos  correctos. 

Justo  al  cierre  de  la  edición  del 
número,  nos  han  dicho  que  en  algunos 
niveles  de  dificultad  y si  no  le  aciertas 
a las  primeras  bombas,  en  el  programa 
“El  bombardero  loco”  aparecido  en  el 
Video  Casino  del  número  4,  da  error  en 
la  línea  157.  Esto  se  puede  solucionar 
aumentando  el  valor  asignado  a la 
variable  BY  en  la  línea  4,  cambiando  la 
línea  por: 

4 V= 53248:  PO K E V H 21  ,Ü;POKE2042,  13: 
BX=80:BY=óÜ 


INDICE  ANUNCIANTES 

BASIC  MICRO  ORDENADORES  ..... 

17 

ICOSA 

o 

CASD.A  OE  SOFTWARE  

21 

INDESCOMP 

■ ■ m # * i 

CENTRO  DE  INFORMATICA 

45 

LOBERCIO  INFO-IMRORT  

73 

COMMODORE  WORLD  (distribución) 

2 

MICROINFORM ATICA  Y SOFT 

29 

COMMODORE  WORLD  (suscripciones) 

35 

NOVO-DIGIT  

* v n b ■ 3 i 

COMMODORE  64  

26,27,76 

OFERTAS  DE  TRABAJO  

20,53,65 

DETALUIT  

50 

PHOTO  COPY  ..  . 

E 1 

EAF 

41 

SAKAT1 

■■•****  i 

IO 

FERRE  MORET,  S.A.  

S7 

TECNHEL  

IBERDATA  

13 
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Con  la  ayuda  de  este 
programa,  el  profesor 
más  distraído  podrá 
estar  al  tanto  del  Progreso 
de  sus  estudiantes.  Este 
programa  para  llevar  los 
datos  estadísticos  de  la 
clase  también  puede  ser 
modificado  para  manejar 
otras  aplicaciones  de  datos 
numéricos. 


C-64 


Como  profesor  universitario,  la 
parte  más  laboriosa  de  mi  trabajo 
es  estar  al  tanto  dd  progreso  (o  falta 
de  él)  de  los  estudiantes  pertenecientes 
a un  curso  determinado.  El  aspecto 
más  pesado  de  este  trabajo  —leer  y 
calificar  exámenes,  pruebas,  deberes, 
etc, — también  es  la  parte  que  más  se 
resiste  a automatizarse  {a  no  ser  que 
se  utilicen  exámenes  tipo  test  que  se 
corrigen  por  ordenador). 

El  ordenador  más  grande  y más 
rápido  del  mundo  no  es  capaz  de  leer 
y calificar  un  examen  sobre  44 El  Qui- 
jote" de  Cervantes,  una  redacción 


sobre  el  sistema  bancario  de  los 
Medid  o un  Problema  de  Cálculo.  Sin 
embargo,  los  aspectos  más  mecánicos 
de  un  sistema  de  notas  pueden  ser  enor- 
mente  simplificados  mediante  el  uso 
del  tipo  de  programa  más  adecuado. 


El  Programa  “Lista  de  Clase"  no 
solamente  introduce,  almacena  v cía- 
siiiea  las  notas  de  los  estudiantes,  sino 
que  también  asigna  un  nivel  expre- 
sado en  letras  sobre  la  base  de  diver- 
sas entradas  — exámenes,  deberes, 
etc. — calificadas  según  una  fórmula 
que  proporciona  unos  resultados  con- 
siderados “justos”  sea  cual  sea  la 
norma  que  se  aplique.  El  programa 
permite  que  el  usuario  invente  y 
modifique  esta  fórmula  según  sus 
necesidades, 

i 

Epoca  de  Exámenes 

Además  de  manejar  los  datos  bási- 
cos de  controles  y exámenes,  el 
programa  también  tiene  en  cuenta  los 
coeficientes  multiplicadores  para  las 
notas;  es  decir,  factores  que  pueden 
ser  empleados  para  hacer  un  ajuste  de 
acuerdo  con  la  importancia  relativa 
en  la  puntuación  final.  Por  ejemplo,  a 
lo  mejor  el  profesor  decide  que  la 
segunda  evaluación  a mitad  de  curso 
debe  contar  el  doble  de  la  primera, 
que  el  examen  final  debe  contar  1 vez 
y 1/2  más  que  la  segunda  evaluación, 
y los  deberes  acumulados  solamente 
la  mitad  de  la  primera  evaluación.  El 
programa  toma  los  valores  de  dichos 
coeficientes  multiplicadores  como  da- 
tos y los  almacena  junto  con  los  datos 
de  cada  alumno.  Estos  coeficientes 
pueden  ser  reajustados  o revisados  en 
cualquier  momento. 

Hl  programa  también  proporciona 
unos  límites  numéricos  para  la  asig- 
nación de  nivel  expresado  en  letras. 
La  fórmula  elegida  calcula  la  pun- 
tuación de  cada  estudiante  y asigna 
un  nivel  basado  sobre  la  información 
proporcionada  por  el  profesor  sobre 
el  límite  establecido  (la  A más  baja,  la 
B más  alta,  etc),  I os  límites  también 
se  almacenan  con  las  notas  y los 
coeficientes  y pueden  ser  revisados 
con  la  misma  facilidad. 

Este  programa  está  diseñado  para 
incluir  hasta  200  notas  individuales. 
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Una  opción  de  lista  permite  la  repre- 
sentación y la  impresión  de  una  lista 
completa  de  estudiantes,  junto  con  las 
puntuaciones  hasta  la  fecha  y el  nivel 
expresado  en  letras,  si  este  se  desea. 
Las  notas  individuales,  con  todos  los 
datos  incluidos,  pueden  ser  recupera- 
dos mediante  una  operación  de  “bús- 
queda" — esto  también  puede  repre- 
sentarse en  pantalla  o imprimirse — . 

También  se  pueden  sacar  resúme- 
nes de  los  datos  para  toda  la  clase. 
Las  opciones  de  resúmenes  incluyen 
estadísticas  (puntuación  media  y alumno 
medio  y desviación  standard),  ia  distri- 
ción  de  niveles  (una  gráfica  de  barra  que 


muestra  el  número  de  estudiantes  que 
han  alcanzado  un  nivel  determinado) 
y separación  de  niveles  (las  puntua- 
ciones altas  y bajas  dentro  de  cada 
nivel), 

Ll  programa  funciona  en  el  Com- 
al adore  64  con  una  unidad  de  discos  y 
utiliza  cualquier  Impresora  compati- 
ble, Sin  embargo,  la  impresora  no  es 
imprescindible,  dado  que  todas  las 
rutinas  de  impresión  son  opcionales. 
Algunas  de  las  representaciones  en 
pantalla  son  multicolores.  Pero  un 
monitor  en  blanco  y negro  funciona 
perfectamente  bien.  La  parte  central 
de  este  programa  ha  sido  adaptada 


del  ejemplo  de  la  lista  de  correos 
"Random  File"  de  Commodorc,  pre- 
sentada en  el  disco  de  demostración 
que  acompaña  la  unidad  de  discos.  Las 

subrutinas  básicas  de  Leer  y Escribir 
en  Disco  y el  sistema  de  fichero  Indice 
son  bastante  parecidas.  Sin  embargo, 
las  subrutinas  especializadas  opciona- 
les que  se  incluyen  aquí  hacen  que  este 
programa  resulte  más  complejo,  con 
necesidad  de  un  mínimo  de  20K  de 
RAM, 

Empezando  los  deberes 

Este  programa  necesita  un  disco 
formateado  para  el  almacenamiento 


Programa  de  Evaluación  para  Colegios 


7 REM  * 

* 

8 RE  ti  * CONVEN  I 

* 

9 REH  * LIMEN 
* 


8 1 > 1 ' PRINT" C CLP 1 11  - PE  INI"  t ELK  ] 


1 3 P R I N T 11  C 2CRSRD  ] [ SPC 3 L I S ' Tfl  f SPC  ] PE  C SPC  ] 
CLASE  í SPC  3 V C SPC  3 NOTAS Ji  PE  I NT  " [ SPC  3 ( r: 

ON í SPC 3 OPC I ON í SPC  3 DE  t SPC3N I VELES > " 

1 4 PE  I NT  : PE INT  : PR I NT  : PR I NT  ' PE I NT  "Rl  ¡L 
SAE í SPC 3 1 C SPC  3 PARA [ SPC 3 COMENZAR " 

15  GETXÍ  : IFXÍO"  I "THEN15 

1 9 D I MU < 200 > , 1 í < 200 ) , HZ ( 2000 > t FB=A  r F 
!;<=5  : CH-2  : FP=1  : PR  í NT  " CCLR3  [2CRSED  3 " 

20  PRI NT " C SPC ] INSERTARE SPC ]Dl3Cn[2SPC 3 

DEC SPC 3 LAS [SPC ANOTAS"  PRINT  PRINT : PR 
I NT : PR I NT : PR I NT ' PR I NT 
22  PRINT" [ 39SHIFTD3 " 

24  PE I NT " C SPC 3 LO  C SPC  3 HAS C SPC 3 HECHOR [ 2Spr:  ] 
S C SPC  3 RAER [ SPC  3 COMÍ I NUAR " 

25  GETPÍ  IFP$0"SIÍTHEN25 

26  PRINT" [CLP 3" : PRINT" C4CRSRD] " : INPM 
T " DESEAS C 3FC  3 N I VELES í SPC  3 < S/N " :RRD¿ 


4 PRINT" CCRSRD3 E40SHIFTJD3 M 

6 I NPUT " [ CPSRD 3 [ 2 SPC 3 L I STH C SPC 3 HUI 
?CSPÜ3N[  3CRSEL3 11 ; Üí  : PRINT" " 

7 I F 0$- " N " T H EN2000 

5 IFÜÍO"S"TH£N36 

9 I NPUT " [ SPC  3 ESTAS [ SPC ] SEGURO " , Oí 
O IFÜÍC  " S"THENPRI  NT"  CCLR3  " ■ COTOS' 


51  PRINT" [OLE  3 " 

52  PR  I NT"  [ 1 OS  PC  ÍMENI  i r SPC:  3 TiF  T SPC  1 TRAE 

AJO  M 

54  PRINT" [ 40SHIFTD3 " 

56  PRINT 

58  PRINT " Ü6SPC3 1 *CRERE/ ACTUAL IZAR" 

60  PRINT" C 6SPC 3 2-BÜRRAR " 

62  PR  I NT 11  C 6SPC  3 3=BUSCAR  " 

63  PP I NT " [ 6SPC  3 4=RESUMEN " 

64  PRINT" C6SPC30sFIN" 


66  INPUT" 1 CSFC3 , CSPC32CSPC3 * CSPC33CSPC3 
, C SPC 3 4 C SPC 3 , C SPC 3 0 [ 3 SPC 3 1 C 3CRSRL 3 " ; 

Ü$ 

68  I FÜ$- " 0 " THEN2500 

70  IF0’¿="  i "THEN104 

71  I FOÍ  s " 4"  THEN3000 

72  I FÜÍ = " 3 H THEN300 
74  IFO$<>*,2HTHEN50 
76  GOT 0200 


104  PRINT"  CCLR3  [2CRSRI1 3 C40SH IFTF  3 " 

1 05  PR I NT " [ 3 SPC 3 CREAR/ACTUAL  I ZAR  í SPC 3 


106  PRINT"  [CRSED3  C 40SHIFTE3  11 

107  I NPUT " NO , C SPC 3 ALUMNO [ SPC  3 =0 [ 3CRSEL 3 


108  IFF=0THEN170 

109  IFFC200THEN107 

110  GOSUB 1 500 
160  GOTO 104 

170  ÜPEN5,3,5, "00: INDE 
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de  ñutas  y un  DISCO  DISTINTO 
para  cada  clase.  Después  de  cargar  y 
ejecutar  el  programa,  se  pulsa  la  tecla 
I para  empezar.  Cuando  el  ordenador 
indique  que  se  debe  de  insertar  el 
disco  de  las  notas  en  la  unidad,  el 
disco  del  programa  debe  ser  susti- 
tuido por  el  disco  utilizado  para  los 
ficheros.  Para  continuar  la  operación 
se  pulsa  la  tecla  S, 

Primero  el  programa  le  pregunta  al 
usuario  si  quiere  la  opción  de  niveles 
expresados  en  letras  (se  supone  que 
esta  operación  es  prematura  al  princi- 
pio de  curso),  y luego  pregunta  si  el 
disco  de  las  notas  está  siendo  utili- 


zado por  primera  vez  para  esta  clase 
específica.  (Se  puede  utilizar  un  disco 
que  contiene  notas  anteriores,  corno  si 
fuese  nuevo,  dado  que  el  programa  no 
“verá"  nunca  las  notas  anteriores)  no 
es  necesario  borrar  el  disco. 

Si  el  disco  se  usa  por  primera  vez,  el 
programa  pide  que  el  usuario  realice 
una  doble  verificación  (para  no 
borrar  un  disco  por  error)  y pide  a 
continuación  que  se  inicie  la  entrada 
de  coeficientes  multiplicadores  para 
los  exámenes  y los  deberes.  Dado  que 
el  programa,  tal  y como  está  escrito, 
maneja  tres  exámenes  parciales,  un 
examen  final  y un  cálculo  global  de 


los  deberes,  se  necesitan  cinco  de  estos 
coeficientes,  Estos  pueden  tener  cual- 
quier valor  numérico,  pero  es  aconse- 
jable elegir  valores  que  den  una 
máxima  puntuación  teórica,  para 
cualquier  estudiante,  de  menos  de 
2.000  (Si  se  proyectan  menos  de  Lres 
exámenes  parciales,  o los  deberes  no 
se  toman  en  cuenta,  los  coeficientes 
no  utilizados  son  irrelevantes). 

Una  vez  asignados  los  coeficientes, 
se  solicitan  límites  para  los  niveles,  sí 
la  opción  de  asignación  por  letras  ha 
sido  elegida.  El  límite  de  un  nivel 
determinado  significa  la  puntuación 
acumulada  más  baja  que  pueda 


Viene  de  página  anterior 


370  FR I NT " F I NAL  C 2SPC ] "FEK 

372  PRINT'T.  C SPC 2 EN í SPC ] CflSFt "HW 

373  CIJM«Wl#flXfi+W2#EXE+W3*CXC+UF*FEX+ 
UHU*HU 

375  PE I NT " NÜTfi [ SPC ] GLOB RL  f SPC  J " J CUM 
380  I FGRDí “ " S " THEMPR I HT M [SPC ] PENDI HI 


175  FÜRIslTO200:PRIHT#5,  IÍQ 

3) f 

135  NEXT : CL0SE5 
190  GÜT074 


291  REM  * BORRAR  FICHERO  * 

202  REM  AAAAAAAAAAAAAAAAAAAAA * 

2 1 0 PR I HT “ CCLR3E 2CRSRD 3 E 40SH IFTF3 


[ SPC 3 F I CHERO  C SPC  3 " 

214  F'RI NT " [ CRSRB 3 1 40SH IFTD3 " 

220  I NPUT ”H0. l SPC ] AL  UMH0 [ SPC  3 = C SPC  3 0 
E3CRSRL3 ";F 


1101  REM  ANIVELES-RENDIMIENTO# 

1102  REM  AAAAAAAAAAAAAAAAAAAAA 
1110  I NPUT " t SPC ] MENOR C SPC 3 B C 2SPC  3 


233  IFF>200THEN220 
235  I F I í <F ) O " 1 M THEH2 
240  I í ( F :■  = “ / " : PR  I HT  " E 
H0. "F; "BORRADO" 


1115  I NPU  T " t SPC  3 HE  ÑOR [ SPC  3 C L 2SPC 3 


1120  I NPUT "[ SPC  3 MENOR  C SPC  3 C+ 1 SPC  3 


260  0 PEN5 ,3,5. "00 : I HD E 
265  FOF:  1 = 1 TO20 0 1 PR  I HT # 


1125  I NPUT " r SPC 3 MENOR í SPC 3 B 1 2 SPC 3 
B 

1130  I NPUT " C SPC  3 MENOR C SPC 3 B+ C SPC  3 


ISUALIZAR  A 


303  PR I NT 1 " C CLR 3 E 2CRSRD 3 E40SH T FTF ] " 

304  PR  I NT 1 11  El 5SPC  3 BUSCAR  " 

305  PR I HT " C CRSRB 3 [ 40SH IFTD3 " 

306  I NPUT ' " LO E SPC  3 1 MPR I M0 C SPC  3 < S, ' H 3 " ; 
ROÍ 

307  I NPUT " NO . C SPC  3 AL  IJMNO  C SPC  3 = C SPC  3 0 
E 3CRSRL 3 " ; F 

303  I FF = 0 THE  HPOÍ = " H " 

389  I FF>200THEN307 


1301  REM  A LISTA  DE  CLASE  A 

1302  REM  AAAAAAAAAAAAAAAAAA 

1303  PR I HT " [ CLR 3 " ■ PR I HT  FPJNT  PR I HT : 

PR I NT  FR I NT " L I S Tfl [ SPC  3 ? E SP C 3 í S C SPC 3 0 
RtSPt3NJ“ 

1 305  GETMÍ  • I FMí=  '* " THEN1 305 

1306  I FMÍ = " H " THENRE TURN 

1307  I FM$= "S" THEH 1310 
1303  CUTO 1303 

1310  PR I NT : PR I H T : FR I NT " LO  t SP C 3 1 MP R I M 
0? E SPC 3 í PULSA E SPC 3 R E SPC 3 GUANEA C SPC 3 T 
ERMIHEJ " 

1311  GETZí : IFZÍ=" "THEN131 1 

1312  IFZÍ="N" THEH 1324 

1313  I FZÍ = " S " THEN 1 33o 

1314  GOTO  1311 
1316  REM 

1 324  PR I NT : FR I HT  PR I NT " B E SPC 3 PARA E SPC  3 
V I SUAL I ZAR " : PR I NT 

1325  PR I N T p R I NT "HE S PC  3 PARA  E S PC  3 BE  TE 


1 " THEH38 


342  I FP0í= " 3 " THEHCMD4 

360  PR I NT " C 3SPC 3 " ; SUR* " C SPC ]"IIi$ 

361  PR I NT " E 3SPC  3 " í G I Vi 

362  PR I HT : PR I HT 

363  PR I HT " TEST  C SPC  3 1[ 2SFC  3 " AXA 

365  PR I NT " TEST E SPC 3 2 1 2 SPC 3 " BXB 

366  PR I NT " TES  T E SPC  3 3 C 2 SPC  3 " CXC 
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• Desde  1979  damos  mantenimiento  a los  orde- 
nadores Commodore  y a sus  periféricos,  en  las 

series  2000,  3000,  4000,  8000,  y 700;  con 
todos  sus  periféricos  además  de  impresoras 
Epson,  Citoh,  Oki,  Texas,  Seikosha,  etc.;  discos 
Commodore,  Computhink,  Pertec,  Tandon, 
MPI,  etc. 


• Además,  al  suscribir  un  contrato  de  manteni- 
miento o contrato  de  asistencia  técnica,  le 
obsequiamos  con  un  seguro  a todo  riesgo  que 
cubre  todas  las  contingencias,  incluso  la  recu- 
peración de  datos. 


Servicios  especiales  24  horas/365  días  para 
instalaciones  críticas. 


Iberdata,  S.  A.  División  Mantenimiento  de  Ordenadores 


ALICANTE 

(965)  1 2 09  00 

c/  Padre  Vendrell,  4 
Aücante-3 


(91)  459  01  50 
P*  Castellana,  141 
Madrid- 1 6 


VALENCIA 
(96)351  19  61 

c/  Cervantes,  2 (Guíllén  de  Castro) 
Valencia-5 
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alcanzar  dicho  límite.  De  la  forma  en 
que  está  escrito  d programa,  los  posi- 
bles niveles  expresados  en  letras  son 
F,  D,  G\  C,  B,  B,  y A;  elegidas  sim- 
plemente porque  estos  son  los  niveles 
oficiales  en  el  centro  donde  yo  tra- 
bajo. 

Si  se  actualizan  las  notas  estableci- 
das, el  flujo  es  semejante.  El  ordena- 
dor pregunta  si  el  usuario  quiere 
modificar  los  coeficientes  y los  límites 
previamente  introducidos.  Después 
de  actualizar  los  coeficientes  y los 
límites  o si  se  ha  decidido  no  realizar 
esta  operación  —se  pasa  a la  rutina  de 


Cuando  aparece  “Lista?”  en  panta- 
lla, el  ordenador  está  preguntando  si 
el  usuario  quiere  la  representación  de 
toda  la  lista  de  la  clase.  Si  no  es  nece- 
sario (esto  se  indica  pulsando  la  tecla 

N),  se  pasa  el  menú  principal.  La  tecla 
“S,!  presenta  la  opción  de  una  copia 
impresa  de  la  lista  entera,  pulsando  a 
continuación  la  tecla  R para  pasar  al 
menú  principal. 

Si  no  se  necesita  una  copia  impresa, 
se  inicia  la  representación  en  pantalla 
pulsando  la  tecla  D;  la  tecla  W detiene 
la  representación  existente  en  panta- 
lla, Después  de  fijar  la  representación, 
o después  de  representar  la  lista 


entera,  se  pulsa  la  tecla  R para  pasar 
al  menú  principal.  El  formato  para  la 
representación  de  la  lista  es  una  sola 
línea  con  el  número  de  alumno,  la 
puntuación  acumulada  hasta  la  techa, 
el  nivel  en  letras  (si  esta  opción  fue 
elegida  al  comienzo),  los  apellidos  y el 
nombre. 

Opciones  de  cursos 

Existen  cinco  opciones  en  el  menú 
principal:  creación/actualización 
de  ficha,  borrar  ficha,  búsqueda,  resu- 
men y fin.  La  opción  más  importante, 
la  de  creación/ actualización  de  fichero. 


► 

NERLR" 

1537  I FUÑÍ O "S"THENRETURN 

1326  F'RINT  : PRINT"  R C SPC  ] PftR ñ t SP C ] ñ C TU 

1 539  I NPUT" RPELL I DO  C SPC 31"; CSÍ 

RL  I zm  [ SPC  ] 0 í SPC  1 SRL I R * 

1541  IFCSÍ=”* 11  THEN  1545 

j 

.327  GFTRt : I FRÍ<3 "D " THFH 1 327 

1543  SURÍ-CS# 

1330  FORF= 1TO209 

1545  I NPUT " RPELL I DO [ SPC  3 2 " ; CGÍ 

1332  I F I í < F ) O ÍJ I " THEN 1 35? 

1547  IFCÜÍ="* "THEN1551 

1333  GÜSUE5 100 

1549  IHÍ=CGÍ 

1334  CIJM=Wl*ñXñ+N2*EXÍ!+N3*CXC+WF#FE^ 

1551  I NPUT  "NOMBRE 11  ^ O lí 

+WHN#HW 

1553  IFCIÍ="+ " THEN 1 557 

a 

■ 

1 3 35  I FGRDí  - " S " THENG0.SUB6 0 00 

1555  G I V#~C I í 

1336  LEÍ^CSPCJ" 

1557  INPUT"  CSF'C]  TEST  [SPC  1 1 " fiZ# 

1337  IFGRDÍ=MSrtTHENLEÍ=GÍ 

1559  IFA2$="*"THEN1563 

133S  ‘IF2#="5"TH£N0PEN4 , 4 : CMD4 

1561  RXR=VRL<RZÍ> 

1 340  PR I NTTflB  < 2 > FSPC C 3 > CUNSPC < 2 > LEÍ  3 

1 5 63  I HP UT"ESPCJTEST[ SPC ] 2 " ; BZÍ 

PC<3>SUR#"[SPC] " ID#'' , ESF'C]  "GI VÍCHR#  ( 

1565  I FEZ# = " THEN 1 563 

1 3 ) 

1567  EXE-vFlL'vBZÍ) 

1345  IFZ#="S"THEMPRINT#4 : GLOSE 4 1 GOTO 

1 5 6 9 I HP UT" [SPC 3 TESTE S PC ] 3 " ■ C Z# 

1355 

1571  IFCZí="*"THEN1575 

1345  FORZ"1TO300 1 HEXT 

1573  ©ÍC=VfiUCZ#> 

1350  GETE$: IFE*0"W"THEH1355 

1575  I HF'UT  " [ SF'CJ  F I NHL  " CFÍ 

1352  ZFEÍ="W'THENGOT01400 

Í^;zz  -l£CF£~-  THEN  1581 

a 

1355  HEXT  1 

1579  FEX^VRL^ CFí > 

1400  GETQ#:  IFQíO"R" THEN  1400 

1581  I NPUT " T . [ SPC ] EN C SPC 3 CASA " CN$ 

■ 

J 

1403  IFQÍ=" R 11  THEN  1 405 

1523  IFC1JÍ™ 11  THEN  1 586 

1405  SUR#=" ESPC3 " : GIV#*" CSPC3 " : 111#=" 

1535  HM=VALvCW#1? 

CSF'C]" 

1536  GOSUE5208 

1410  RXA=0 : EXE=0 : CXC=0 : FEX=0 : HW=0 

15S7  I Í < F > = " 1 " 

1415  RETURN 

1533  RETURN 

1500  PEM  ##$#**#*******###****** 

1 600  PR I NT " [ CLR ] " ■ PR I NT " [ 4SPC ] CREAND 

1501  REM  * COMPRUEBAXACTUAL I ZA  * 

0 [ SPC:  ] NUEVO  C SPC:  ] REO  I STRÜ  " 

1502  REM  ##*#####***#***##****** 

1601  SUR#*" C SPC3"  G I V$= " CSPC 3 " 1 1 D#= " 

151B  IFI$(F>0"1  "THEN  1600 

[SPC 3" 

1515  GOSUB5100 

1602  ñXfi=0 : EXB=0 : CXC=0 ■ FEX=0  HU=0 

1520  PRINT" [RED] " 

1 605  PR I NT : PR I NT "ALUMNO [ SPC 3 # " F ■ PR I N 

1521  PRINT" ECLR] " 

T 

1 523  PR I NTF " C 3SPC ] " SUR# " C 2 SPC ] " I Dí 

1610  I NPUT " APE  LL I DO  C SPC  3 1 " ; SUR # 

1524  PRINTMC5SPC]MGIVÍ 

1615  I NPUT " RPELL I DO [ SPC 1 2' "i  I D# 

1525  PRINT "TEST [SPC] 1 C23PC] "AXA.. "TES 

1620  I HF'IJ  T " NOMBR E " :•  0 1 V# 

T C SPC ] 2 C 2SPC ] " EXE  , " TEST  C SPC ] 3 C 3SPC ] " 

1625  I NPUT  "TEST  [ SPC]  # 1 C5SPC3  " AXA 

CXC 

1630  I NPUT " TEST  E SPC ] #2 [ 5SPC 3 " i BXÍ 

1 526  PR  I NT " [ 2SPC  ] F I NFtLC  SPC  ] " FEX " [ 2SPC  ] 

1635  INPUT " TESTESPC3#  3E5SFC1  " ; CXC 

ENCSPC ]CRSfl"HN 

1640  I NPUT " F I NAL [ 7 SPC ] " j FEX 

1 525  F’R I NT  ; PR  I NT " [ 33F‘C ] * í SPC 3 = C SPC  ] H 

1645  IHF'UT"T.  [ SPC 3EN E SPC ] CASA C 2SPC 3 " 

0CSPC3CñMEIRRL0C4#C]M 

; hw  i 

V ■ * 3 

1 ero  i DO  T kl!T  11  -i — m — - . - 

1 1-,  s m n ni  1 1 s o o m 

L -J-.J  1 r K 1 r i \ 

i O -J  1 J i J W D J £-  tJ 

■ 

_____  M 

1655  IÍCF )=" 1 " 

1532  PRINT " CBLK 3 " ! 

1660  RETURN 

1 535  I NPUT * CAHB I ARLO í SPC ] < S/N > [ SPC ] " 

; UNÍ 

■* 

■ 

► 

L — — * 
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Pide  que  el  usuario  asigne  un  número 
del  I al  200.  Si  el  número  corresponde 
a una  ficha  inactiva,  registrada  por  el 
índice  de  ficheros,  aparece  el  mensaje 
Creando  Nuevo  Registro,  junto  con  el 
nombre  de  alumno,  y se  le  pide  al 
usuario  los  apellidos,  el  nombre  y las 
notas  de  ios  exámenes,  1,2.  3 y el  final. 

Si  todos  estos  datos  no  son  dispo- 
nibles todavía,  se  pulsa  la  tecla 
"RtULirn'1  cuando  aparece  el  mensaje, 
estableciéndose  el  cero  como  un  valor 
por  omisión.  Una  vez  introducido  un 
registro  nuevo,  la  información  se 
escribe  en  disco  y se  solicita  un 
número  de  alumno  nuevo. 


Cuando  se  asigna  un  número  de 
registro  activo  para  la  creación /actua- 
lización del  fichero,  el  proceso  resulta 
un  poco  diferente.  La  información 
contenida  en  dicho  registro  aparece 
en  pantalla  y el  ordenador  pregunta  si 
el  usuario  quiere  actualizarlo.  Si  la 
respuesta  es  negativa,  se  vuelve  a soli- 
citar un  número  de  alumno.  Si  es 
positiva,  se  solicita  toda  la  informa- 
ción necesaria.  Cuando  todas  las 
entradas  quedan  completadas,  los 
nuevos  datos  se  escriben  en  disco  y se 
pide  un  nuevo  número. 

Finalmente,  cuando  se  pide  un 
número  de  registro  y se  contesta  con 


un  cero,  el  programa  da  por  termi- 
nada la  rutina  de  creación/actualiza- 
ción, Entonces  el  índice  de  ficheros  en 
el  disco  se  actualiza  y se  vuelve  a la 
opción  de  “lista" L que.  al  ser  recha- 
zada vuelve  al  menú  principal.  La 
opción  de  borrar  solicita  un  número 
de  alumno.  Si  se  introduce  un  número 
activo,  el  proceso  de  borrado  simple- 
mente convierte  la  bandera  de  índice 
de  dicho  número  de  activo  en  inac- 
tivo. A continuación,  se  solicita  otro 
número  de  alumno  para  repetir  el 
proceso.  Si  se  contesta  con  un  cero  se 
vuelve  a la  opción  “lista'". 

La  opción  de  búsqueda  primero 


Viene  de  página  anterior 


* COEFICIENTE 
+ NIVELES 


020  I FK  $ ~ S " THEN2W0 

021  I F \i  ♦<  > " N u T H E N2  OIS 

022  PRI NT" [RED 3 " 

023  PE INI" TEST [ 3PC 3 1 [ 4SPC 3 " U 1 : PR I NT 
T E S T [ SPC ] 2 [ 4 SPC ] " tí 2 

0 2 4 PE I NT” TESTE S PC 33E4SPC3 " U$  PR I N T 
FINfiLC-SSPC]  "WF 

026  PR 1 NT ” T . C SPC  HEME  SPC ] CRSR " WHW 
023  PEI  NT  PEI  NT"  [2SFÜ  ] — - 


N " THEN2C70 


2075  IHFUT 
E3PC3NH , Kí 
20S0  I FKÍ= 


” THEN2Ü85 
N" THEH2071 


090  PRINT#15,  ’NJI  : ",CH.;FD,FT  ¡ FS 
055  PRI NT# 15, "B“P : ",CH;FP 
037  OOSUB5270 
100  I.HPUT#CHj  LD 
102  INPUT#CHj LC 

104  INPUT#CH/ LP 
106  I NPUT #CH , LB 

105  INPUT#CH,LQ 
110  INPUT#CH,LR 

1 1 5 PR I NT " C CL  R J " : PR I N T " C RED  I " 

1 20  PR  1 NT 11 C 3SPC ] M I N I MO f SPC 3 D E 2SFÜ  3 


2125  PR I NT 11 C 3SPC ] M I N I MO  E SPC ] R C 2SPC 1 ” 

LR 

2130  PRI  NT  : PRI  NT"  [ 2SPC J - 

E2SPC] " : PRINT" EBLK3 


2135  I NPUT " CRME I RR í SPC ] LOS í SPC ] M I H I M 
ÜSCSPCKS/NVUKÍ 

2136  IFKf ="NUTHEN46 

2140  I NPUT " NUEVO í SPC ] 1-1 1 N I MO C SPC 3 D í SPC 3 
">LD 

2141  I NPUT  " NUEVO í SPC ] MI N I MO i SPC ] C í SPC 3 
" t LC 

2142  I NPUT " NUEVO C SF'C 3 M I N I ÜÜ E SPC 3 C:+ " ; 

LP 

2 1 43  I NPUT " NUEVO í 3 PC 1 M I H I MO [ SPC ] B í SPC ] 
" i LB 

2144  I NP IJT  " N UE  VÜ  í $ PC  3 M I N I MO  [ SPC  3 B + " 

LQ 

2145  I NP  U T " NUEVO  í SP  C ] M I N I Mu  [ S PC  ] H C S F:' C 3 


LIMITE 
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pregunta  al  usuario  si  desea  utilizar  la 
impresora;  si  es  así,  cada  registro  bus- 
cado en  esta  secuencia  será  impreso 
por  completo.  A continuación,  se 
solicita  un  número.  Cuando  se  asigna 
un  fichero  activo,  se  representa  o se 
imprime  el  nombre,  la  puntuación  de 
pruebas  y deberes,  la  puntuación 
acumulada  basada  sobre  los  coefi- 
cientes actuales  y,  si  se  ha  elegido  la 
opción  de  asignación  de  niveles  al 
comenzar  el  programa,  este  nivel 
expresado  en  letras.  Al  completarse 
una  representación  o una  impresión  el 
programa  solicita  que  se  inicie  una 
operación  de  búsqueda  en  el  fichero 


siguiente.  Al  pulsar  la  tecla  cero  se 
vuelve  a la  opción  “lista  A 

Las  notas 

Al  elegir  la  opción  de  resumen, 
aparecerá  en  pantalla  el  mensaje 
“Espere  un  poco”.  Es  necesario  espe- 
rar, ya  que  se  están  leyendo  todos 
los  dalos  de  los  ficheros  activos  y las 
puntuaciones  acumuladas  están  siendo 
tabuladas.  Al  terminar  este  proceso, 
aparece  el  menú  de  resumen:  1) 
mediano,  media  y desviación  están- 
dar d;  2)  distribución  por  niveles;  3) 
separación  de  niveles;  0)  volver  a la 
opción  “lista  A 


La  opción  1 da  otro  mensaje  de 
espera.  Es  asi  porque  el  cálculo  del 
mediano  de  una  colección  no  orde- 
nada de  ciíras  brutas  requiere  un  pro- 
ceso bastante  largo.  Finalmente,  el 
mediano,  ía  media  y la  desviación 
estandard  de  las  puntuaciones  apare- 
cen en  pantalla. 

Recordamos  que  el  mediano  es  la 
puntuación  en  medio  de  un  grupo  de 
puntuaciones.  Si  el  número  total  de 
puntuaciones  es  par,  con  el  resultado 
de  que  no  queda  una  exactamente  en 
medio,  la  puntuación  mediana  será  el 
término  medio  de  las  dos  puntuacio- 
nes que  se  encuentran  a cada  lado  del 


2215  PR I NT  : FR 1 NT "ENTRñ [ 3PÜ  ] CÜEF 1 r: I EN 
TESE  3 PC  IDEE 3 PC ] EXAMENES " FR I NT : PR I NT 

2223  I MPUT " [ 23 PC ] TEST [ SFC ] 1 [ SPC  ] 11 ; U í 

222 1 I NPUT " C 2 SFC  II  TEST C SFC ] 2 1 SFC  ] " , U2 


v ó 


■E-É-Éh 


I NPUT " [ 2SPC 3 TEST  C SPC  ] 3 í SPf: 3 " ; tí 

2223  I NPUT " E 23PC ] F I NAL  [ 2SPC  7 " UF 

2224  I HPU T "TdENC SPC ] C R Sfl " UHW 


2225  F=3Ú0 : OOSUB5330 


2230  ÜÜSUB2S40 

2 24 0 I FG Rtü O "S" T HEN L D=©  = LG=  0 L. B = 0 L 

Q=S  ; jtñ=@ : GQTQ2270 

2250  PRINT" ECLRU" : PRINT 

2255  PR 1 NT " I 2 SPC ] ENTRA E SPC  J LOS C SPC 3 L 

I M I T ES  [ SP C ] HE  L SP  C ] H I V EL.  E S [ 2 S PC  3 " PR  í 

NT ¡PRINT 

22 60  l NP IJ  T"[  SPC  J M I H I Mu  C S PC  3 D I SP C ¡"  , L. 
D 


2261  I NPUT 11 C SPC  1 M I N I MÜ  i 3 PC:  3 C [ SPC  ] " - L 


C 


I N RUT 11  CSPC3M INI  NO C SP C ] C+ " . L P 
2263  I NPUT " [ S P C 3 M I M I M0 L S PC  ] E L SP C 3 " . L 
E 


I NPUT " [ SPC JM I M I MG C SPC 3B+"  LQ 
í HPU T " [ SFC ] MI N I Mu C SPC 1 R [ SP C ] 


L 


2265 
fl 

2270  F =480 ■ GOSÜE5330 
2230  GOSUE2940 
2290  COTOS i 

25O0  REM  CERRRR  FICHEROS 
2520  GLOSES i CLÜSE5 s GLOSEIS • EHB 
2700  REM  * LEE  LIMITES  DE  RNTIGUR  LI 
STR  * 

2705  F=4S0 ' GOSUE5330 

27 1 0 PR I NT#  1 5 , " U 1 : " ; CH ; Flu  FT FS 
27 1 5 PR I NT# 15," E-P : " CH ; FP 
2720  G0SUB5270 
2725  INPUTttCH, LD 

I NPUT #CH, LC 
INPUTttCH, LP 
2731  INPUTttCH, LB 
2733  INPUT#CH, LG 
2735  INPUTttCH, LR 
2740  G0TO46 

2840  REM  ********** *********** 

2341  REM  * COEFICIENTES-TEST  * 

2342  REM  ********************* 


2727 

2729 


r.  ’• 


► 


► 


i 


I 


' 
I 


28 


er  -*■ 


2843  F=30O ' GOSUE5330 

PR I NT #15, "E-P" 
2851  PRIHT#CH,W1 

PRINTttCH, W2 

PF:  I NT  #CH , W3 
2354  PRINT#CH,HF 

PRINTttCH, UHW 
2860  PRINT#15, "U£ 
2865  GOSUB5270 
2370  RETURH 


*■  Tí 


:H;  FP 


■Zn  O O 


^ O rj  . J 


II 


CH , FU , FT ■ 


FS 


2940  REM  ********************* 

2941  REM  * CURRE Fl  MINS-NIVEL  + 


2942 

R, 

EN  ********** 

2943 

F 

=400  G0SUB533 

2345 

PRINT# 15, "E-P : 

2950 

PRI  NT #CH , L..D 

2 9 5 1 

PRIHTttCH, LC 

^ -_E  c. 

PRINTttCH, LP 

i“,  £;■ 

Pj 

RIHTttCH, LE 

2354 

Pl 

RIHTttCH , LQ 

■‘".nrr 
£L  I?  • J 

PRINTttCH, Lfl 

23*60 

FRIHT#15, "U2 : " 

Cj  ¿T  C7 

2*  D ■ J 

GCISIJE5270 

2970 

R1 

ETIJRN 

JN0U 

RFM  4::f i+; 

3ü0 1 

r< 

EH  * RESUMEN 

3902 

Rl 

EM  H.f 

3006 

K 

T=0  : FEjpF”  1 T02 

3007 

Pl 

RINT"  E CLR] 11  P 

Fe; 


J 0 

u r ■ ^ 

--0  NE2T 

t < 

V J i 

NT  PR] 

:nt  PRI  i- 

■■■i  r ' 


[ SPC I ESPERE [SPC] UN [SPC 3 POCO 1 " 

3003  F'ÜRF =1TÜ200 
3010  IFIÍ<F>="1 " THEMKT =KT+ 1 
3015  I F I $ ( F > = " " T HEM>¡ @50 
3G20  GÜSUE5100 

3040  C U M = U 1 * í: 1 N fl  ■ +■  tí  2 * E H E + W 3 * C X C + tí  F * 
+ 

3043  LKF>  ”CL 
3050  NEHT 

3059  PRI NT" CCLR ] " 

3060  PRINT  PRINT11  [ SPC  ] 1 LSPi 
DIñHü ■ [SPC] MEDIR, [SFC 3 DES 


■■  i **  ;c 


i ■ 

TI 
1 ■ 

J P 


J 

[3 


[SPC 

r J £ 


3 ME 
3 Tlf 


M 


3065  PRINT:  pr  i NT  " [ SFC  ] 2 [ 3 PC  ] * E SP  CUJI 
STR 1 BUC I OH E SPC ] POR E SPC ] H I VELES i SPC 1 " 


3067 

PPRR( 

3075 


PRINT  PRINT" [SPC13L3!  C-  I 

: i o n i s pc  mu  s pc  ] n i veles  e 

PR I NT  : PR  I NT " t SPC 3 0 E SPC  1 


SPC 3 SE 

s spc  :j" 

-EoF'L  JVC 


Pasa  a siguiente  página 
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algunos  de  nuestros 


CONTABILIDAD 


CONTROL  STOK 


□■'ARO  -BALANCES 

SL  'VIA:-.  SAl  I DOS  Y 

Situación 

I ISTAIJQS  API  JNTES 
CUENTAS  750 
APUNTES  3515 


iv n. j v uvTitíM  IUS  DE  Al  Mapfm 

rnSiDD  lentas  y 

MNwaf  INVEN,A,}'o 

listados  diversos 

ARTICULOS  1500 
PROVEEDORES  255 


GESTION 

COMERCIAL 

MOVIMIENTOS  DE  ALJu 
A.  BAR  ANES  FACA  «Xc 

RK»os- remedas  “• 

* OTROS  LISTADOS 

CUEN  TES  500 
ARTICUl.  OS  lonn 


RECIBOS  Y 
ETIQUETAS 

MANTENIMIENTO 
LISTADO  DE  RECIBOS 
RE  MESAS 

LISTADO  ETIQUETAS 
V OTROS 


¡NOVEDAD! 
CONMUTADOR  T.V 

PFRMfTE  SJMUt  TANEAR 

EL  USO  DE  LA  EN  ' RAI  )A 
DE  ANTENA  Al  TV 
CON  UN  ORDENADOR 
PERSONAL 


agenda  y 

ETIQUETAS 

direcciones 
Hsyf  las 

fe  diaria: 

r VJrROS  ppnriL  cr 


AVD.  CESAR  AUGUSTO, 72 
Tlfs.  23  56  82  y 22  65  44 
ZARAGOZA  3 


- 

r-  b 

■ ■ 

B "J 

i,  a j ■ 

ri  ■ r 

Im 

-Bf 

■lab 

TI 

rn 

■ i ■ 

are  r 

* 

ir  ■ 

IB 

J ■ 

■ va  ■ 

i ■ ■ 

a a a 
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centro.  Por  otro  lado,  la  puntuación 
media  es  simplemente  el  término 
medio  de  todas  las  puntuaciones.  La 
comparación  de  la  mediana  y la 
media  (muchas  veces  serán  muy  pare- 
cidas) da  una  idea  de  la  forma  en  que 
las  puntuaciones  se  distribuyen,  a lo 
largo  de  la  escala. 

La  desviación  cstandard  es  la  raíz 
cuadrada  de  los  términos  medios  de 
los  cuadrados  de  las  desviaciones 
individuales.  (Una  desviación  indivi- 
dual es  la  diferencia  entre  una  pun- 
tuación individual  y la  media),  l,a 
desviación  estandard  da  cierta  medida 
de  lo  mucho  o poco  que  las  puntua- 


ciones se  agrupan  alrededor  de  la 
media. 

La  elección  de  las  opciones  2 ó 3 del 
menú  de  resumen  significa  que  el 


ciones  de  los  niveles  por  letras  y que 
se  introdujeron  los  límites  de  niveles. 
La  opción  2 simplemente  presenta  el 
número  total  de  niveles  en  cada  cate- 


existentes  dentro  de  cada  categoría  de 
niveles,  lista  opción  ha  sido  incluida 
basándose  en  la  suposición  de  que  es 
preferible  que  el  conjunto  de  puntua- 
ciones acumuladas  dentro  de  cada 
nivel  se  agrupe  de  forma  más  o menos 
clara.  Por  ejemplo,  si  la  C más  alta  de 
la  clase  se  difiere  de  la  B más  baja  por 
uno  o dos  puntos,  de  digamos,  600, 


goría,  de  la  A a la  F.  Los  números  se 
presentan  en  pantalla  junto  con  una 
gráfica  de  barras  multicolor  (la  A es 
roja,  la  F negra}  que  resume  la  misma 
información  de  forma  visual. 

La  opción  3 presenta  la  puntuación 
acumulada  más  baja  y 3a  más  alta 


la  operación  de  separación  de  grados 
le  permite  al  usuario  verlo  en 
seguida. 

11  ay  que  tener  en  cuenta  que  se 
puede  volver  al  menú  de  resumen  pul- 
sando la  tecla  R después  de  ejecutar 
cualquiera  de  estas  tres  operaciones. 


pagina  anterior 


308@  I NPUT"  1 [ SPÜ  ] , í SPC  ] 2 C SPC  ] , [ SPC  ] 
[ SPC ] , [ SPC 3 Ü [ 2SPC 3 i L 3CP3RL 3 " ; mí 

3081  IFA$= 11 1 M THEN3100 

3082  THE  113309 

3083  IFhÍ“"3 " THEN3590 

3085  I Fñí = n 0 1 k THEMCH-2  GÜTO50 
3090  00 T 03959 

3190  REM  **+  ESTADISTICAS  ++* 

3191  PRINT"  f CLR] !J  PRINT  ; FRINT  PRINT 


3195  FORT =0702000  HZ(T>= 
3107  FÜRF  «IT 0200 
3110  I F I í ( F > O " 1" THE  N3 1 1 
3112  K=INTf2*U<F>>  HZ<X> 


FP+ 1 


FORJ-0T 02000 
HL=HH  : HH=HH+HZj-  J 


3139  I F H H = K T / 2 ñ H D H L < H H T H E N M 1 
3133  I F HH  > K ' T / 2 ñ M D H L = K T / 2 T H E¡  \ 
3135  NEXT 

3149  Mfr-J/2 ■ G0T03165 
3142  J+MIO  /4  0ÜT0316 5 

3165  SH=0  FORV™ 1 TÜ200 
3167  SM-SM+U < V > : NEXT 
3170  MH-SrVRT 

3175  DV;“0 : FÜRV=lTü£00 

3176  lfl$( V > O u 1 ' ' THEH 3 i 79 

3177  DV^DV+tvlKV) NH>T2> 

3179  NEXT 

3180  3D=<  DV/KT>  T,  5 
3185  PRINT " f CLR J " 

3130  PRINT  PRINT: PRINT" [3CPt 


3358  PRINT'1  TOTA! 
INT  11  [ CRSRU  ] ,F 
3362  PRINT11  [ CRN 


BLJJ1 ri  : LTH 


TOTAL  C 


í OTñLCSPCJF 
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Si  el  usuario  no  queda  satisfecho 
con  algún  aspecto  de  la  puntuación 
acumulada  o la  distribución  de  nive- 
les, se  puede  intentar  la  modificación 
de  la  situación  mediante  el  ajuste  de 
las  fórmulas  (es  decir,  mediante  la 


tes  y limites  de  niveles).  Para  hacer 
esto  simplemente  se  sale  del  programa 
a través  del  menú  principal  (opción 
0),  se  vuelve  a ejecutar  (RUN)  y se 
introducen  los  nuevos  valores  de 
coeficientes  y de  límites  cuando  sean 
solicitados-  Tales  modificaciones  se 
pueden  realizar  de  forma  sencilla  y rá- 
pida, y se  pueden  probar  muchas 


posibilidades  para  conseguir  un  resul- 
tado aceptable. 

Modificaciones 

Una  vez  que  comprenda  la  lógica  de 
este  programa,  el  usuario  podrá 
modificarlo,  según  sus  propias  nece- 
sidades, Por  ejemplo,  ss  el  usuario 
enseña  un  curso  en  que  los  trabajos,  en 
vez  de  los  exámenes,  sirven  de  crite- 
rio, podría  ser  necesario  modificar  las 
asignaciones  en  las  diversas  represen- 
taciones y poner  “Trabajo”  en  vez  de 
“Evaluación”.  (Recuerda  que  las  cali- 

fu  ■ ■ sm  J J ... 


ser  numéricas,  o por  lo  menos  fáciles 
de  convertir  en  números),  A lo  mejor 
quieres  cambiar  el  número  de  exáme- 
nes, o incluso  registrar  cada  asigna- 
ción de  deberes  por  separado,  El  di- 
seño básico  de  este  programa  se 
prestará  fácilmente  a tales  modifica- 
ciones. 

El  mismo  principio  se  aplica  si 
quieres  utilizar  otra  graduación  por 

letras  (A-,  B-,  etc.)  además  de  las  incor- 
poradas en  el  programa.  Sin  embargo, 
en  este  caso  podrías  preferir  modificar 
el  resumen  de  la  distribución  de  gra- 
dos para  conseguir  una  representa- 
ción visual  mente  atractiva. 


uu 


EPñRnCIOH/NIVEL 

RT'PRÍNT  PRIMT  RRI 


IFT-t  • J > 


Fm'u. 


L B"  1 HNI'U  •;  J > CBHTHEMBI 


>PGTHEHPG=U',J 

TXPHTHEHPH=U 


PE] PUL 
JHLCSF 


>C:GTHENCG=U':  .T  • 
J>ÍCHTHEHCH=LKJ 


3542  I FU < J ) <L 
3560  HESCT 
3570  Vfi=6  VQ* 

F=0 

3580  F 0R J =110 
3585  I F I í < J > = 
3588  CUM=LKJ) 


INPUT#CH 
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CIVILMATICA  84 


Sí  tienes  un  V1C-2Ü  en  vez  de  un 
C-64,  la  lógica  del  Basic  funcionará 
fácilmente,  con  tal  de  que  disponga  de 
una  expansión  de  memoria  lo  sufi- 
cientemente amplia  (recuerda  que 
hacen  falta  más  de  2ÜK  de  espacio  de 
trabajo).  La  única  sentencia  “Poke" 
del  programa  (línea  12)  fija  el  color  de 
pantalla  en  blanco,  y para  el  VIC-20 
sería  POKE3ÓB79,  24.  Sin  embargo, 
dado  que  unas  de  las  representaciones 
en  pantalla  se  diseñaron  pensando  en 
la  pantalla,  de  40  columnas  del  C-64, 
podría  ser  necesario  modificarlas  para 
que  queden  bien  en  la  pantalla  del 

VIC-20. 


Las  principales  empresas  de  equipos 
en  la  Escuela  Técnica  Superior  de 
Ingenieros  de  Caminos,  Canales  y 
Puertos  de  Madrid. 

El  ciclo  de  conferencias  técnicas  fue 
ampliado  con  intervenciones  de  espe- 
cialistas  que  explicaron  las  ultimas 
realizaciones  informáticas  en  estos 
aspectos  de  la  Ingeniería, 


Viene  de  página  anterior 


' .L  2 

6 122 
ó 1 2 J 

*124 

6125 

*1  ¿Ib 

6 1 30 

7000 

7005 

7010 

7015 


7025 

7030 

7035 

7040 

7045 

7050 

7055 

7060 

SPfl 

7065 

7070 

7075 

708Ü 

7085 

7090 

7095 


FS=r Fi  ¿FT F3>4F2+<FT-F3 

RE7URN 

RE  N +4444 * t 4 4 4 44: 4 4+ 4 4 4 4 4 4 

REM  4 CúMf\  I)E  NIVELES  4 

R EN  4 4 4 4 44  4+44444  44  44* 4 4 4 

G:í'^ÉrF1s 

; r j i b 1 - !!p!t 

I FCUM>U> 1 THENGÍ ~ " C " 

I F C f_IM>  LP“  1 T HEH  ü " C + " 

I F CUM5L8  - í THEHGf—  “ E 11 
IFÜUt'Ü  LQ- lTHENüí- M E+" 
IFCUM>Lfl-l THENGÍ= "HM 
RETURN 


REM  4 
REM  4 


^LñVES  DEL  4 
LISTADO  4 


REM 

REM 


REM 


" [ CRSRU ] " CURSOR  UP 

"CCRSprn"  cursor  dowh 

M[ CRSRU"  CURSOR  LEFT 
" CCRSRR3"  CURSOR  RIGHT 
"CHÚME] 11  CURSOR  HOME 
" C CLR  ] " SCREEN 

" [RVSOH] " REVERSE  ÜN 
" CRVSOFF 3 " REVERSE  OFF 
" CSH 1FT [ 8PC ] SPñCE ] " SHIFTED 


REM  11  CELIO  " BLACK 
REM  MCWHT3M  WHITE 
REM  11  LREB]  " RED 
REM  nCVHr  OVAN 
REM  " CPUR] " PURPLE 
REM  " CGRN]  " OREEN 
REM  " CELU] H ELLE 


REM 


M C VELÜ " VELLON 
" CSHIFTD] " SHIF1 
" CSHIFTF  3 " SHIF'l 


5153  IHPUTttCH, IDÍ 

5 1 54  IHPUTttCH, hXh 

5155  1NPIJ7#CH,BMB 


sise  IHPUTttCH, CKC 

5157  IHPUTttCH , FE 

5158  IHPUTttCH, HW 
5190  RETURN 

smé  REM  4444  4:4+444444444444 

52fl  REM  4 FDD  BLOCK  URITE  4 
5202  REM  444+4444444444444*4 
521Ú  GÜSUB5330 

5220  PR I NT #15^  11 E P‘  " ; CH,  FP 

5230  PRINTttCH , SUR  i 


CT  '-:r7.  * 

PRINTttCH, 

G I VÍ 

cr-Fi 

'-™1  'r-1 

PRINTttCH, 

IDÍ 

EZ"  -■“>  “i  '“i 
■J  ¿L. 

PRINTttCH  , 

AMA 

5234 

PRINTttCH , 

BNB 

5235 

PRINTttCH, 

fia1» 

1 V: 1 ' 

I1*- 

5236 

PRINTttCH, 

fex 

CT  ■rr*  ,vm'i  — 7 

•J  l' 

PRINTttCH, 

H iJ 

5250 

GOSUE5270 

5260 

RETURN 

5270 

REM  4 +44+ +44+ +44+ 

5271 

REM  4 ERROR  CHECK 

5272 

REM  44 +444+ +44 4+4 

5280  IHPUTttl  5 , EN , EMi  , El  , ES 

C22C  ife::  úthenreturn 

5300  PR I NT "ERROR [ SPC ] STATUS í " ; EN ■ EMi 
■ ET.iES 

53 1 n 1 NPIJT  " r GNT I HUE? " , Vi  ■ I FVÍ^  ’T  THE 

N RETURN 

5320  STOP 

5322  REM  4444444444444444444+44 


REM  Á 

k SET  TRfií 

:i<  & SECTOR 

REM  t 

M.*  **+-*:**< 

le**;******:** 

5330  IFF-2358TH ENFILO  : F2-22  : F3=l  : GOTO 

c¡  “?  ra 

5340  I F F > 3 5 7 fl  N H F <.  4 72T H E N F 1 = 35  ? ■ F 2 = 2 0 
■F3-13 ■ GOTO5370 

5350  I FF>  4 7 1 FlN  IíF< 5 80TH  ENF 1 ==  47 1 : F2=  1 9 
í F3=£5 ■ GOT 05370 

5:300  i;FF3'573THEHFl-579  : F2=18  : F3=31 

5370  FT  =■  I NT  C i i F Fl > - í‘>  / < F2-  1»+F:3 


OFERTA 


TRABAJO 


¡URGENTE! 

Vendedor 
de  publicidad, 
dinámico 


con  experiencia 

COMMODORE  WORLD 
C/Pedro  Muguruza,  4-8-  B 

MADRID-16 
i eléfono:  259  54  78 


PARA 


PRACTICALO 


PROCESADOR  DE  TEXTO 

35  000  caracteres,  240  columnas 
Versión  diskette:  21.500,“ 

Versión  cartucho:  24.900“ 

(grabación  de  documentos  en 
diskette  y cassette) 


VIZAWRITE 


HOJA  DE  CALCULO 

2,000  coordenadas 

(funciones  matemáticas,  sort,  gráficos  .) 
Versión  cassette  1 5.500- 
Version  diskette:  1 7 500  - 


MANUAL  EN  CASTELLANO 


MANUAL  EN  CASTELLANO 


CONTABILIDAD  i 
PROFESIONAL 


300  cuentas 
3.000  apuntes  por  disco 
Listado  de  diario 
Batanee  de  sumas  y saldos 
Balance  de  situación 
Extractos  de  cuenta 
Listado  de  ficheros 
Diario  de  cierre 
Utilitarios,  etc.,. 


CONTABILIDAD 

DOMESTICA 


1 cuenta  ingresos 
1 5 cuentas  gastos 

L lista  dos  por  impresora 
y pantalla 

Análisis  porcentual 
Gráfico  de  gastos  por 
pantalla 


EQUIPO  NECESARIO: 
Ordenador:  COMMODORE  - 64 
Unidad  de  disco:  VC  1541 
Impresora:  VC  1525  ó MPS  801 
Monitor  ó T.V, 

ADAPTADO  AL  PLAN  GENERAL  CONTABLE  ESPAÑOL 


VERSION  CARTUCHO 


LAPIZ  OPTICO  Y 
SOFTWARE  GRAFICO 


Para  conectar  cualquier  periférico 
con  protocolo  IEEE  488  (floppys  8050,  8250 
impresoras  8023,  8024  etc  ) 
al  COMMODORE  64 


Dibujar  en  pantalla  a mano  alzada 
formas  geométricas,  sombreados. 
Grabación  del  dibuja  en  cassette 


JOY  STICK  DE 
PRECISION 


CONTABILIDAD 

DOMESTICA 


22  cuentas 

Listado  por  pantalla  o impresora  de 

los  ingresos  y gastos  de  cada  período  definido 


VERSION  CASSETTE 
para 

C-64  3.500- 
VIC  20:  2 500- 


Pulsador  sensible 
Cable  extra  largo 

Para  CBM  64,  VIC  20.  ATARI  CX  2600 


BOLETIN  DE  PEDIDO 

Nombre  y dirección: 


□ Contabilidad  64  (profesional) 

G Contabilidad  doméstica  (cartucho) 

G Contabilidad  doméstica  (cassette  C 64) 
G Contabilidad  domestica  (cassette-VIC  20 
D Practícale  G Vizawnte 

G Joystick  G Lápiz  óptico 

I J interface  IEEE  488 
G Información  detallada 


FORMA  DE  PAGO 


(añadir  250  pts. 
por  producto  para 
gastos  de  envío) 

G Contra 

reembolso 


Enviara:  CASA  DE  SOFTWARE  S.A 


i 


4.— Ficheros  Indexados  Secuenciales 
en  Discos  CBM  (ISAM):  (Continuación) 


Por  Manuel  AMADO 


d)  Programa: 

liste  artículo  es  continuación  del 
anterior  de  la  serie,  y»  como  lo  prome- 
tido es  deuda,  en  este  articulo  voy  a 
describiros  y mostraros  un  sencillo 
programa  ejemplo  del  algoritmo  ges- 
tor de  ficheros  indexados  secucn cía- 
les, descrito  en  el  anterior  artículo  (os 
aconsejo  que  tengáis  al  lado  el  algo- 
ritmo mencionado  cuando  procedáis 
a la  lectura  del  programa). 

Anles  de  proceder  a la  descripción 
del  programa,  me  gustaría  remarcar 
que  éste  pretende  ser  simplemente  un 
ejemplo  del  manejo  de  una  serie  de 
rutinas  que  permiten  el  manteni- 
miento de  un  ISAM, 

Normalmente,  para  la  instalación 
de  la  mayoría  de  las  diferentes  estruc- 
turas de  ficheros,  se  realizan  dos  pro- 
cesos perfectamente  diferenciados: 

1)  creación  del  fichero 

2)  gestión  del  fichero 

En  este  caso,  estos  dos  procesos 
corresponden  a dos  programas  dife- 
rentes, llamados  CREA  ISAM  e ISAM 
respectivamente.  Veamos  cada  uno  de 
ellos: 

1)  CREACION  DEL  FICHERO 

Antes  de  proceder  a trabajar  con  el 
fichero  que  deseamos  procesar,  hay 


8000 

700 

BASIC  4 


que  definir  los  parámetros  principales 
de  éste  y crear  los  ficheros  físicos 
correspondientes  en  el  disco,  de  forma 
que  quede  reservado  el  espado  en 
disco  necesario. 

En  el  presente  caso,  necesitamos 
crear  dos  ficheros  en  disco,  el  fichero 
índice,  de  tipo  secuencial,  y el  fichero 
final  de  datos,  de  tipo  relativo.  El 
programa  es  el  correspondiente  al  lis- 
tado l. 

— Creación  del  fichero  indice: 

(líneas  20-50) 

Hn  este  caso,  la  creación  es  sinó- 
nimo de  inícíalización,  pues  además 


hay  que  INICIALIZAR  el  contenido 
de  este  fichero  de  modo  que  posibilite 
el  posterior  correcto  funcionamiento 
el  programa  gestor  (línea  5Af  Dadas 
las  características  de  la  rutina  de  bús- 


queda e inserción  de  nuevas  claves  en 
el  fichero  índice,  se  inicializan,  me- 
diante un  bucle  hasta  el  numero 
máximo  de  registros  que  puede  tener 
ei  fichero,  las  claves  del  índice  a un 


contenido  alfabéticamente  mayor  que 
cualquier  clave  que  se  pueda  insertar 
en  dicho  índice,  en  este  caso  rellenán- 
dose cada  clave  con  chr${255)  (clave 
falsa),  con  lo  cual  nos  aseguramos  que 
cualquier  posición  no  ocupada  estará 
al  final  del  índice. 


Y para  evitar  el  tener  que  llevar  un 
control  externo  de  cuáles  son  los 
registros  ubres  y ocupados  del  fichero 
de  datos,  se  asocia  a cada  clave 
'‘falsa",  como  número  de  registro  el 
valor  del  contador  en  aquel  momento. 

— Creación  del  fichero  de  datos: 

(línea  60). 

Esta  operación  también  depende 
mucho  del  tipo  de  fichero  físico  que 
usemos.  En  el  caso  de  un  fichero  de 
acceso  directo,  se  trataría  de  reservar 
el  área  del  disco  que  necesitamos 
mediante  un  bucle  de  Hn  el 

caso  que  estamos  considerando,  al 
tratarse  de  un  fichero  relativo,  se  trata 
de  abrir  el  fichero  relativo  en  modo 


creación,  para  que  se  genere  la 
correspondiente  -entrada  en  directo- 
rio, asignando  una  longitud  de  regis- 
tro de  254  (DOPEN#3,  (“(§}"+NE$), 
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DO,  1.254)  para  evitar  así  en  el  poste- 
rior programa  gestor  el  tener  que  con- 
trolar las  longitudes  de  cada  campo, 
dado  que  la  finalidad  básica  de  este 
programa  es  mostrar  cómo  se  realizan 
y gestionan  ficheros  ISAM,  Bn  el  caso 
de  que  se  vaya  a realizar  una  gestión 
eficiente  y correcta  del  fichero  de 
datos,  hay  que  fijar  una  longitud  para 
cada  campo,  y escribir  los  diferentes 
campos  en  el  disco  FOR  MATA  DOS 
a su  longitud  máxima  (rellenados  o 
cortados  según  sobrepase  o no  alcance 
dicha  longitud  con  CHR$(32))*  A 
continuación,  se  escribe  en  el  ultimo 
registro  para  que  el  DOS  cree  los  sec- 
tores índice  y reserve  todos  los  blo- 
ques correspondientes.  Para  más  deta- 
lles sobre  el  manejo  de  ficheros 
relativos,  os  recomiendo  la  lectura  de 
la  serie  dedicada  a este  tipo  de  fiche- 
ros que  apareció  en  la  revista  CLUB 

COMM ODORE  nüm.  9-1  l,de  JORDI 
SASTRE. 

2)  GESTION  DEL  FICHERO: 

Este  programa  ha  de  realizar  los 
procesos  que  se  realizan  en  cualquier 
fichero,  que  son: 

—altas  de  nuevos  registros 

—bajas  de  registros  ya  existentes 

— consulta  y modificación  de  un 
registro. 

En  e!  programa  gestor  (listado  2), 
se  ha  obviado  el  proceso  de  modifica- 
ción de  un  registro,  dado  que  el  objeto 
principal  de  este  programa  y del  arti- 
culo es  el  mostrar  las  rutinas  de  ges- 
tión de  un  ISAM*  En  este  caso,  para 
realizar  la  modificación  de  un  regis- 
tro, bastaría  con  realizar  una  con- 
sulta, proceso  descrito  en  el  pro- 
grama., y luego  pedir  si  se  desean  o no 
modificar  los  campos  del  registro,  a 
excepción  del  primero  que  es  el  que  se 
ha  tomado  como  clave  de  acceso  o 
índice*  y que  no  se  puede  modificar, 
puesto  que  entendemos  por  modifica- 
ción el  modificar  el  contenido  dei 
registro  sin  cambiar  la  clave  de 
acceso.  En  el  caso  de  querer  cambiar 
también  la  clave  de  acceso,  deberá 
realizarse  una  baja  y una  alta  conse- 
cutivamente. 

El  programa  se  ha  dividido  en  dos 
partes,  un  área  principal,  lincas  1000- 
2010,  y un  área  de  sub rutinas,  lincas 
39-395*  La  parte  IMPORTAN  i E del 
programa*  es  el  conjunto  de  las  sub  ru- 
tinas correspondientes  a las  líneas  39- 
310.  en  donde  están  todas  las  fu n ció- 
nes  necesarias  para  el  mantenimiento 
del  fichero,  y que  serán  las  que  se 
aprovecharán  luego  al  utilizar  este 
fichero  en  cualquier  programa.  Esta 
parte  está  profundamente  comentada 
en  el  algoritmo  aparecido  en  el  ante- 
rior artículo,  y ahora  pasaremos  a ver 
el  campo  principal  del  programa: 


PROGRAMA:  CREA1SAM 

0 CLR 

1 REM  DSRVE 11  0CREA  1 SAM 11 

2 REM  MANUEL  AMADO  / 21/MAR20/84 

16  REM  DECLARACION  DE  PARAMETROS  DEL  ISA 
M 

20  NM-200  : NC=5  : DIM  CL$<NM,2> ,R*<NC5 
30  NF $=  " I NOEXADG 11  : RTÍ=CHRÍC13> 

40  00PEN#3  , < 11  @ 11 +NFÍ+ 11  - C " > , D0  , W : PR I NT#3  - M 
8" 

50  FOR I = 1 TONM : PR I NT#3 . CHR*  < 255  > RT$STR$ < I 
} ;NEXT:DCL0SE#3 
55  SCRATCHCNF*>,D0 

60  DÜPEN#3 r í "e"+NF* } rD0.L254 :REC0RÜ#3 , <N 
M>  :PRINT#3^  M A*1  sREC0RD#3  -<NM>  :DCLÜSE#3 

j 


PROGRAMA:  ISAM 

0 CLR 

1 REM  ÜSA VE 11  @ I SAM  " 

2 REM  MANUEL  AMADO  / 06/ABRIL/34 

10  REM  DECLARACION  DE  PARAMETROS  DEL  ISA 
M 

20  NM=200  : NC— 5 : DIM  CLÍCNM ,2>  .,R* <NC :■ 
25  M 1 *=  " CLAVE C 1SPC3EXI SIENTE ''  s M2Í= " CLAVÉ 
C1SPC 3 INEXISTENTE'1 

30  NF$=" I NDEXADO"  : RT$=CHR*<13>  : GOTO 

1000 

39  REM  LECTURA  DE  LAS  CLAVES  DEL  DISCO 

40  DÜPEN#3r  <NF$+'VC">^D0  : INPUT#3,AÍ  : 

NT=VAL<R$>s  REM  N- REGISTROS  ACTUALES 
50  F0RI=1TONM:INPUT#3,CL*Í I, 1 >,CLÍ<I ,2> : 
NEXT :0CL0SE#3 

55  DOREN# 1 , <HFÍ > ,D0 sRETURN 
58  : 

53  REM  GRABACION  DE  LAS  CLAVES  EN  EL  DIS 
CO 

60  D0PEN#3 @ 11  +UFt + " * C " > ^00-  W sPRI  HT#3  x S 
TRSÍNT> 

70  FOR I =1 TONM :PR INT#3 ^CLSC I , 1 }RT*CLÍ< í ,2 
> :NEXT :DCL0SE#3 :RETURN 

78  : 

79  REM  LECTURA  DEL  REGISTRO  HR 

80  RECORD# 1 . C NR  > : FOR 1 = 1 TÜNC : I NPUT# 1 , R*  < I 
} :NEXT:RETURN 

88  : 

89  REM  ESCRITURA  DEL  REGISTRO  NR 

90  RECORD#  1 , í NR>  :RÍ="  " :FORI  = lTONC  ;R*=RÍ+ 
R$<I>+RT* ¡NEXT 

100  PRINT#URí  ; ; RECORD# L< NR > sRETURM 

107  : 

108  REM  5UBRUTINA  DE  BUSQUEDA  DICGTÜMICR 
DE  LA  CLAVE-  EN  CLS  LA  CLAVE 

109  REM  fl  BUSCAR-  DEVUELVE  EN  T Lfl  POSIC 

ION  SI  EXISTE.  T=0  SI  NO  EXISTE 

110  M=INT<NT72> :J»0:IE=0 

120  IF  CL$ÍM- U>CL*  THEN  M=INT<M-< CM-J>/ 
2>>  : GÜTÜ120 

130  JT=J  : J=M  :M=I  NT <M+<  ÍM-J1  >/2>  > : IF  MOJ 
GOTO120 
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FICHEROS  CBM 


LINEAS  20-30:  Parámetros. 

NM— Número  máximo  de  registros  del 
fichero.  Definido  en  el  programa  de 
creación. 

NC=  Número  de  campos  del  fichero. 
Definido  en  el  programa  de  creación. 

Matrices  principales: 

CL$(1,  l)=Clave  índice  l del  fichero 
( LS(E 2)=Número  de  registro  de  la 

LINEA  1000-1060:  Carga  índice. 

En  la  línea  1000  se  carga  el  fichero 
índice.  NT— Numero  de  registros  ocu- 
pados. (GOSUB40) 

LINEAS  1005-1060:  Menú  del  pro- 
grama. 

En  él  se  selecciona  la  operación  que 
se  desea  realizar  en  el  fichero.  A des- 
tacar que  además  de  las  tres  opera- 
ciones básicas  mencionadas  anterior- 
mente, también  se  ha  incluido  la 
opción  de  REGENERADO  del  fichero, 
que  más  adelante  comentaré.  En  la 
opción  de  salida  (linea  1055)  se  cie- 
rran todos  los  ficheros  abiertos 
(DCLOSE),  y se  ejecuta  un  reseteado 
de  la  CPU  (SYS  64790  para  el  3000). 
LINEAS  1100-1175:  Altas 

Se  ejecuta  la  entrada  e inserción  de 
un  nuevo  registro. 

ajentrada  de  la  clave: 

El  poner  a continuación  del  texto 
que  acompaña  al  INPUT  tres  CHR$ 
(160)  (SHIFT-SPACE)  y tres  cursor 
izquierda  (CRSRL),  es  un  sencillo 
truco  para  evitar  que  al  contestar  a un 
INPUT  con  un  RETURN  directo,  sin 
habeT  entrado  datos,  se  interrumpa  la 
ejecución  del  programa,  pues  de  este 
modo  se  consigue  que  siempre  haya 
al  menos  un  CH R$  ( 1 60)  en  c i buff é r 
del  teclado,  A continuación  se  testea 
si  se  ha  entrado  o no  algún  dato.  En 
este  caso,  entrada  de  la  clave,  si  se  ha 
pulsado  solamente  RETURN,  se  graba 
el  fichero  índice  en  disco  (GOSUB 
60),  y se  vuelve  al  menú  general.  Bús- 
queda de  la  posición  de  inserción  de  la 
nueva  clave  (GOSUB  1 10).  Sí  existe  se 
vuelve  a pedir  clave.  Con  ello  se  evita 
la  entrada  de  claves  iguales.  En  el  caso 
de  desear  la  posibilidad  de  repetición 
de  claves,  simplemente  eliminar  la 
comparación  {línea  1 120) 

t>)  entrada  y grabación  del  registro 

A continuación  se  entra  el  resto  de 
los  campos  del  registro  (recordemos 
que  en  este  fichero  el  primer  campo  es 
la  clave),  líneas  1140-1700.  Se  va  a 
buscar  el  primer  registro  libre,  {GO- 
SUB 300),  se  inserta  la  clave  (GO- 
SUB J30),  y se  graba  el  registro. 
LINEAS  1 200- 1 290 : Bajas 

Si  la  clave  no  se  ha  encontrado,  se 
manda  el  mensaje  pertinente  (línea 
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í 40  XF  CLÍCM+I , 1 5ÍCLÍ  RHO  M+IONT  THEN  M 
=M+1  : GOTO 120 
150  T=M:  RETURN 
17?  : 

178  REM  INSERCION  DE  UNR  NUEVA  CLAVE  EN 
CLíT  I sJy  EN  LR  FOSICION  T.  CLRVE 

179  REM  EN  CL*  : REGISTRO  LIBRE  EN  HR 

130  IF  T=NT  OE  NT-0  THEN  210 

190  I FT+ 1 -NTTHENCLí  < T +2 - 1 >=CLÍ<T+W  i > sCL 

$íT+2.,2>=CL$<;T+1  ,2>  :GÜT0210 

200  F0RIK=NTT0T+1STEF-1 :CLÍ Y IX+ 1 , 1 >=CL$ < 

IX  , 1 } :CL*CIX+1  ,2>=CLÍÍIX*I2>  ¡NEXTIX 

210  CL4KT+1 , 1 >=CL$ :CL$ <T+1 ,2>=STRí CNR> :N 

T=NT  + 1 : RETURN 

213  : 

220  REM  BORRADO  DE  UNR  CLRVE  EN  CL Í(LJ) 
, EN  LA  POSICION  T 

230  FORI X=T+ 1 TONT  ;CL*<  IX-  1 , 1 >=CLÍ  < IXr,  1 > : 
CL*< IX- 1 ,2>=CL$< IXr2> :NEXT 
240  RETURN 


259  REM  RUTINA  DE  VISURL IZACIÜN  DE  PRNTA 
LLfl  DE  TRABAJO 

260  PR INT"  Z 2H0ME  3 C 1 CLR  3 C 2CRSRD  3 ,r  SPC  < 20  } M 
[ 1 RVSON I C 5SPC  3 11 +TTÍ+ 11  í 5SPC  3 í 1 RVSOF  3 11 
275  F0KE224, 8; RETURN 


299  REM  RUTINA  DE  BUSQUEDA  DEL  PRIMER  RE 
GI3TR0  LIBRE 

300  I FNT>NMTHENRETURN 

310  NR=VALÍCLÍ<NT+1,2>> :RETURN 

348  : 

349  REM  RUTINfi  DE  VISUAL I ZRC ION  DEL  REGI 
STRO  LEIDO 

350  PR  INT 11  NOMBRE  :C4SPCJ  "Rí<  1 > 

360  PR INT "DIRECCION : C6SPC3  "R$<2} 

370  PR  I NT 11 PÜBLAC  ION  zZ  2SHFSPC  3 í 4 SPC  3 ' Rí  < 3> 
380  PR INT "PROFES ION : C6SFC3 "R* <4 > 

390  PR INT "TELEFONO : C6SPC3 "RSC5> 

395  RETURN 


999  REM  CUERPO  PRINCIPAL  DEL  PROGRAMA 

1000  GOSUB  40 

1 095  PR I NT  M [ 2HÜME  3 Z 1 CLR I í 2CRSRD 3 " SPC  < 20  > 
" í 1 RVSON 3 Z 5SPC 3 MENU  1 1 SPC  3 DE i 1 SPC  3 OFERRC I 
ONES  C 5SPC 3 E 1 RVSOF  3 " 

1010  PR I NT M Z 2CRSRD 3 1 1 1CRSRR3  C 1RVSON] C 1SP 

C3  1 f 1 SPC  K 1 RVSOF  K4SPC  3 ALTAS 

1020  PR  I NT 11  C2CRSRD  3 C 1 1 CRSRR  3 C 1 RVSON  3 r 1 SP 

C 32C 1SFC3  L 1 RVSOF 3 L4SPC3BAJAS 

1030  PR I NT " C2CRSRD  3 C 1 1 CRSRR 3 Z 1 RVSON 3 1 1SP 

C13Í 1SPC3  Z 1 RVSOF 3 C4SFC3CÜNSULTAS 

1 035  PR I NT 11 Z 2CRSRD 3 C 1 1 CRSRR  3 Z 1 RVSON  3 C 1 SP 

e 3 4 [ 1 SPC  3 í 1 RVSOF  3 Z 4 SPC 3 REGENERAD I ON 

1037  PR I NT " Z 2CRSRD  3 C 1 1 CRSRR 3 Z 1RVSON3  C 1 SP 
C 3 5 C 1 SPC 1 C 1 RVSOF  3 Z 4SPC 3 SAL I DA 

1038  : 

1039  REM  SELECCIONA  OPERACION  A REALIZAR 

1040  GETRf si FRÍ="M THEN 1048 

1 050  VAL  < A$+CHR*  C 0 > > : I FFK 1 0RA>5G0T0 1 04 

0 

1055  IFA=5THENDCLOSE:SVS64790 
: REM  FIN 

1 060  ONRGOTO  1100,1 200  , 1 300  .r  1 400 


1098  : 

1099  RE M RLTRS 

1100  TT*=,,flLTftSí'  :GOSÜB280 

1110  I HPUT " E 1 HOME 3 E 1 CL  R 3 NOMBRE C 3SHFSPC 3 E 
3CRSRL  3 M ¿CLÍ : IFflSCCCLÍ :>  = 160  THENG0SUB68 : 

GOTO 1005 

1115  GO3UB110 

1120  IFLEFTÍCCLÍ<T^l>,LENCCLf >>=CLSTHENP 
R I NT " C 1 RVSQN3  11 +M 1 $ : FOR I = 1 TO 1 000  ; NEXT  : GOT 
01  110 

1140  I HPUT  ° E 1 CRSRD  3 D I RECC I ON  E 3SHFSPC  3 E 3C 
RSRL3  " ;R*<2> : I FRSC  CR* Í2>  > = 168G0T01 140 
1158  I NPUT " E 1 CRSRD  3 POBLRC I ON  í 3SHFSPC  3 E 3C 
RSRL  3 11  ;R*C3>  : IFRSCÉRÍ <3>  > = 160GÜTO1 150 
1160  I HPUT "El CRSRD  3 PROFES I ON  E 3SHF  SPC  3 E 3C 
RSRL  3 11  ;RÍ  <4>  : IFRSC<R$<4)  > = 160GOTO1 160 
1 1 70  X NPUT 11  í 1 CRSRD 3 TELEFONOE  3SHFSPC 3 C 3CR 
SRL3,,;RÍ<5>  : IFRSC<R*<5> >= 160GOTÜ1 170 
1175  R*< 1 >=CLÍ ¡GOSUB300 :GOSUB180 ¡ G0SUB98 

:GOTOU  10 

1198  : 

1199  REM  BRJRS 

1 200  TTÍ- " BRJRS ri  : GÜSUB260 

1216  I NPUT 11  E 1H0ME3C  1CLR3NOMBREC3SHFSPC3  E 
3CRSRL3  ,f  ;CL$  : IFRSC  <CL$>  = 160  THENGOSUB60  : 

GOTO 1005 

1215  GOSUB 1 10 

1220  IFT>NTTHENT=NT 

1 222  I FCLÍ  < T , 1 > OCL*’ THENPR I NT  " E 1 RV30N  3 11  + 
M2Í  : FOR I = 1 TO 1 000 : NEXT : GOTO 1 200 
1225  NR=VRL  CCLÍ  C T , 2 > > :GÜSUB80 :GÜUB350 
1275  PRINT "ESTRC 1 SPC 3 SEGURO C 1SHFSPC3<S>E 

1 SPC 3/E 1SPC3<N>C 1SHFSPC3?" 

1 280  GETfií  : I FRÍO 11 S 11 RNDRÍO  " N 11 THEN 1 280 
1 285  I FRÍ = " S " THENGOSUB220 s CL*  C NT , 1 > =CHR$ 

<255> :CLÍ <NT , 2>=STRÍ <NR> 

1290  NT=NT-1 :GOTO1210 


1299  REM  CONSULTRS 

1380  TT í = " CONSULTRS 11  : GOSUB260 

1310  I NPUT "El HOME  3 E 1 CLR 3 HOMBRE  E 33HFSPC 3 E 

3CRSRL  3 11  ;CLÍ  : I FRSC < CL*  > = 1 60  THENGÜSUB60 : 

GOTO 1005 

1315  GOSUB 110: IFCLÍ < T , 1 > =CLÍ THEN 1 320 

1317  T=T+1 

1320  IFT>HTTHENT =NT 

1325  NR= VAL  < CL*  < T r 2 > > : G0SUB3Q 

1 330  GGSU8350  : PR I NT 11 E 2CRSRD  3 E 1 RVSÜN  3 E 1 SP 

C 3PÜLSE  E 1 SPC  3 CUfiLQU  I ER  C 1 SPC  3 TECLA" 

1375  GETR*  2 1 FA*= 11 11  GOTO  1 375 
13S0  G0TÜ1310 


1400  TT*=" REGENERACION"  :GOSUB260 

1405  INPUT" C 1 CLR 3 NUMERO C 1 SPC 3 DE E ÍSPC3REG 

I STROS  E 1 SPC  3 TOTAL C 1 SPC  3 DEL  C 1 SPC  3 F I CHEPO E 

3SHFSPC  3 E 3CRSRL  3 11 ; NR* 

1410  PÜKE224 , 24 : PR I NT " E 1 HOME  3 E 1 CL  R 3 " 

1415  NT= 1 : FOR1 V- 1 TO VRL  < NR* > : NR= V : GOSUB80 
1420  CLí-RíCl} ; GOSUB 110: PR I NTCL* 

1430  GOSUB 1 80 : NEXT :GOSUB60 :GOTO1005 
2000  FORNR=1TONM:GOSUB80 

2010  CLÍ-R*  -i  1 > sPRINT" E 1H0ME3E  1 CLR  3"  OLÍ  :G 
OSUB110 :GOSUB300: GOSUB 180 :NEXT :GOSUBS0:D 
CLOSE 


1222).  Se  visualiza  el  contenido  del 
registro  (lin.  1225),  y se  pide  confor- 
midad. En  caso  afirmativo,  se  elimina 
la  clave  del  índice  (gosub  220),  y se 
inserta  la  clave  falsa  de  chr$(255)  al 
final  del  índice  ocupado , reservado  el 
NR  liberado  (CL$  (NTJ)=CHR$(255): 
CL$  (NTÍ2)=NR). 

LÍNEAS  1300-1380:  Consultas, 

La  mecánica  es  parecida  al  ante- 
rior, pero  con  la  excepción  de  que  hay 
que  realizar  un  ajuste  en  el  índice  T, 
que  indica  la  posición  de  la  clave  bus- 
cada, para  permitir  búsquedas  genéri- 
cas, (líneas  1315-1320), 

LINEAS  1400-1430:  Regeneración  deí 
índice. 

Un  detalle  importante  de  este 
fichero  es  la  seguridad  de  los  datos  en 
disco.  Al  formar  parte  la  clave  como 
un  campo  más  del  fichero  de  datos, 
ante  cualquier  pérdida  de  la  informa- 
ción almacenada  en  ram  (cortes  de 
luz,  fluctuaciones  en  la  tensión,  etc.)  v 
que  afectaría  principalmente  al  índice, 
que  hasta  que  no  se  finaliza  una  de  las 
operaciones,  (bajas  o altas),  no  se 
graba  en  el  disco.  Ello  conllevaría  una 
pérdida  de  información  que  en  muchos 

casos  sería  sensiblemente  importante, 
sobre  todo  si  nos  hallásemos  en  medio 
de  un  proceso  de  entrada  de  datos, 
con  lo  cual  se  perderían  todos  los 
datos  entrados  hasta  el  momento. 
Pero  como  los  datos  están  TODOS 
grabados  en  disco,  mediante  un  senci- 
llo proceso,  un  simple  bucle,  se  puede 
REGENERAR  el  índice  que  se  hubiese 
podido  estropear. 

Esto  es  lo  que  hace  el  presente  apar- 
tado, Se  pregunta  primero  al  usuario 
cuántos  registros  cree  que  están  ocu- 
pados, y a continuación  realiza  un 
barrido  del  fichero  relativo  según  el 
número  de  registros  indicado.  Se  va 
recogiendo  el  contenido  del  primer 
campo  de  cada  registro  (lío.  1415- 
1420),  y se  inserta  dicha  clave  y su  NR 
asociado  en  la  matriz  índice  (GOSUB 
1 10-GOSUB  180).  Finalizado  el  bucle, 
se  graba  la  matriz  regenerada  en  disco 
(GOSUB  60),  y se  vuelve  al  menú. 
Finalmente,  para  finalizar  el  articulo, 
reseñaros  a los  que  no  sois  usuarios 
del  equipo  8000,  que  la  instrucción 
POKE  224, X lo  que  realiza  es  definir 
la  línea  superior  de  la  pantalla  activa, 
de  forma  que  la  porción  de  la  pantalla 
que  queda  disponible  una  vez  ejecu- 
tada dicha  instrucción  es  la  compren- 
dida entre  la  línea  X y la  25  (el  sistema 
entiende  ahora  que  la  pantalla  EM- 
PIEZA en  la  línea  X y no  en  la  25). 
Este  límite  queda  suprimido  ejecu- 
tando dos  “HOME"  seguidos,  o sea 
PRINT  “[HOME]  [HOME]",  ■ 

Commodore  World  lunío  1984/25 


Cuando  se  tiene  64  K de  memoria, 
una  magnífica  resolución,  16  colores, 
efectos  tridimensionales  con  sprites, 
un  sonido  equivalente  al  de  un 
sintetizador,  un  teclado  profesional 
con  62  caracteres  gráficos,  toda  una 
amplia  gama  de  periféricos,  la  más 
completa  gama  de  programas 
educativos,  profesionales  y de  video- 


juegos...; en  resumen,  cuando  se  es 
un  ordenador  personal  como  no  existe 
ningún  otro  en  el  mercado  y el  más 
vendido  mundialmente,  es  muy  difícil 
decir  sin  orgullo  que  eres  un 
Commodore-64. 

Claro  que  más  difícil  todavía  es  decir 
sin  orgullo  que  tienes  un  Commodore-64. 
¿Por  qué  no  lo  comprueba? 


COMMODORE  64 

LE  DA  ACCESO  A MUCHOS 
ACCESORIOS  ■ . . 


Unidad  simple  de  disco  (Monofloppy)  170  K. 


Cassette. 


Plotter  e impresora,  4 colores, 


K 


mt 


14  c.p.s. 

Impresora 
30  c.p.s. 


, tractor, 


* 


* 


Interface  RS232. 
Joy  Stick. 
Paddle. 


Cursos  de  Introduc 
ción  al  BASIC. 


1 * 


% 

.4 

■y* 

v 


i 

f 

i 

* 


m 


■ 


I-  ■ » 

* i’*  i 

■ft  _ í 

* V.  * m.  * 


■ 

* 


* 


■ Vt<** 


• <-* 


■ . " ■ L . * 

• . ■ **C*  *1  v*  V Va 


Utilitarios  y lenguajes 

MONITOR  LENGUAJE  MACRO  ASSEMBLER. 
MAQUINA.  PROGRAMMER’S 

FORTH.  UTILITIES. 

LOGO.  TURTLE  GRAPHICS  II. 

PILOT.  MASTER. 

Sistemas  operativos 

FILE/BOSS.  CP/M. 

Programas  de  aplicaciones 

EASY  SCRIPT. 

Proceso  de  texto  de  gran  potencia. 


CALC  RESULT. 

Hoja  electrónica  de  cálculo. 


EASY  CALC  RESULT. 

Versión  simplificada  del  CALC  RESULT. 

MAGIC  DESK. 

Proceso  de  texto  y gestión  de  ficheros. 
AGENDA  TELEFONICA. 


Programas  educativos 


MUSIC  MACHINE. 


MUSIC  COMPOSER. 

VISIBLE  SOLAR 
SYSTEM. 

SPEED/BINGO  MATH. 
FISICA  I. 
MATEMATICAS  I. 
HISTORIA  I. 


GEOGRAFIA  I. 
GEOGRAFIA  II. 

JUEGOS  EDUCATIVOS. 
TEMAS 

MONOGRAFICOS. 

CONOCIMIENTOS 

GENERALES. 

QUIMICA  I. 


Juegos 

JUPITER  LANDER. 

KICKMAN. 

SEAWOLF. 

RADAR  RAT  RACE. 
TOOTH  INVADERS. 
LAZARIAN. 


FROGMASTER. 
GRID  RUNNER. 

ATTACK 

OF  THE  MUTANT 
CAMELS. 

THE  PIT. 


MR.  TNT. 

6 GAME  PROGRAMS. 
BINGO. 

ROOTING  TOOTING. 

MINESSOTA  FAT'S 
POOL  CHALLENGE. 

. y seguimos  ampliando  la  lista 


El  ordenador  personal  de  la 

familia  más  potente 

commodore 


MICROELECTRONICA  Y CONTROL,  S.A 
c/.  Taquígrafo  Serra,  7,  5.°.  Barcelona-29 
c ./  Princesa,  47,  3.°  G.  Madrid-8 


OMEGA  RACE. 
LE  MANS. 

PINBALL 
SPECT ACULAR. 

AVENGER. 

SUPERMASH. 


Por  Jordi  SASTRE 


orinal  mente  en  todos 

Mfllos  ordenadores  se  van 

corrigiendo  (se  revisan) 
los  programas  que  se  inclu- 
yen en  el  equipo  durante  el 
proceso  de  fabricación,  una 
de  las  ventajas  del  C-64  es 
la  de  que  no  es  necesario 
cambiar  el  circuito  inte- 
grado que  contiene  el  sis- 
tema operativo  cada  vez  que 
aparece  una  versión  nueva, 
simplemente  se  copia  en 
Ram  y se  cambia  lo  que 
haga  falta... 


C-64 


Recientemente  ha  aparecido  una 
nueva  ROM  de  Kernal  en  los  C-64. 
Esta  ROM,  identifican  como  versión 
-03,  incorpora  ciertos  cambios  en  el 
sistema  operativo,  incluyendo  el  poder 
leer  en  el  C-64  cassettes  grabados  por 
el  VIC-20.  Es  posible  adaptar  esta 
nueva  versión  a los  aparatos  equipa- 
dos con  la  ROM  anterior  (versión  -02) 
mediante  un  programa  que  vuelque  el 
Kernal  a RAM,  efectúe  las  modifica- 
ciones, y deje  al  ordenador  traba- 
jando con  el  Kernal  modificado  en 
RAM. 

Los  cambios  realizados  en  ¡a  nueva 
ROM  son: 

] ) Cuando  se  efectúa  un  POKE  a la 
pantalla,  aparece  el  carácter  con  el 
color  actualmente  en  curso,  sin  nece- 
sidad de  pokear  la  memoria  de  color. 
En  la  versión  anterior  (-02)  al  hacer 
esto  el  carácter  quedaba  "invisible”  a 
menos  que  se  pusiera  el  cursor  encima 
o se  le  asignara  un  color  mediante  el 
POKE  correspondiente.  Esto  permite 
identificar  rápidamente  la  versión  de 
ROM  de  la  que  está  dotado  un  deter- 
minado aparato:  se  borra  la  pantalla, 
se  desplaza  el  cursor  un  par  de  lineas 
hacia  abajo  y se  ejecuta:  POKE 
1024,1.  Si  en  el  vértice  superior 
izquierdo  de  la  pantalla  aparece  la 
letra  "A"  significa  que  se  trata  de  la 


nueva  versión  -03,  en  caso  contrario, 
si  no  aparece  nada,  se  trata  de  la  -0,2. 

2)  Está  corregido  el  bug  de  edición 
en  la  línea  25  (última  de  la  pantalla), 
que  se  hacia  notar  al  borrar  caracteres 
(DEL)  en  esta  línea. 

3)  También  corregido  el  bug  del 
INPUT  que  incluía  como  respuesta  el 
texto  que  se  entregaba  como  pregunta 
cuando  la  longitud  de  esta  respuesta 
obligaba  a doblar  la  línea. 

4)  Las  rutinas  que  manejan  el  RS- 
232  no  gestionan  bien  el  ílag  de  recep- 
ción del  primer  bit  del  carácter. 

A continuación  facilitamos  un  pro- 
grama "modificador”  de  la  ROM.  De 
esta  manera,  quien  posea  un  C-64 
cuya  ROM  de  Kernal  sea  de  la  ver- 
sión -02  (hacer  la  prueba  del  POKl: 
1024,1)  puede  fácilmente  actualizarse 
a la  nueva  versión  -03.  Este  programa 
carga,  en  primer  lugar,  una  rutina  en 
código  máquina  para  copiar  el  conte- 
nido actual  de  las  ROMs  sobre  RAM 
(líneas  100  a 130).  Esta  rutina,  que 
entra  en  acción  con  la  línea  140,  copia 
el  contenido  de  las  posiciones  com- 
prendidas entre  40960  y 49 1 5 1 , y entre 
57344  y 65535,  Esta  operación  se 
realiza  en  código  máquina  porque,  de 
hacerla  en  Basic,  puede  resultar  bas- 
tante lenta  (16384  byles  a copiar!). 
Las  líneas  210  y 220  efectúan  los  cam- 
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bios  necesarios  en  la  ROM  (ahora 
sobre  RAM),  indicados  en  las  líneas 
de  DA  I As  a partir  de  la  500.  Final- 
mente, la  línea  310  activa  la  RAM 
para  que  entren  en  funcionamiento 
las  modificaciones  efectuadas. 

100  REM  ***  COPIA  DE  ROM  A 
RAM  *** 

110  READ  D : D]=D  : C'H=0 
120  READ  X : IF  X 256  THEN 
POKE  D,X  : CH=CH+X  : 
D=D+ 1 : GOTO  120 
130  IF  X CH  THEN  PRINT “ERROR 


430  DATA  230,3,165,3,208,1,96,201, 
1 92.208,238, 1 69.224,208,232 

440  DATA  4120 
450  : 

500  REM  ***  BYTES  A 
CAMBIAR  *** 

510  DATA  58540,129 

520  DATA  58579,133,169,169,1,133. 
171,96,173,134,2 

530  DATA  58748,32,240,233,169,39, 
232.180,2 1 7,48,6,24,105,40,232, 16 


540  DATA  58763,246,133,213,76,36. 
234,228,20 1 ,240.3.76.237,230,96, 
234 

550  DATA  58914,145,229 
560  DATA  59911,32,218,228,169,32, 
145,209.136, 16,246,96.234 
570  DATA  61332,76,211,228 
580  DATA  65408,3 
590  DATA  999 

Para  los  curiosos  facilito  a conti- 
nuación la  rutina  de  codigo  máquina 
listada  en  assembler; 


DE  CHECKSUM”  : STOP 

000 

*=$03 3 C 

;DIRECCION  DE  INICIO:  828 

1 40 

SYS  DI 

033C 

A0  00 

START 

LDY  #$00 

;INICIALIZA  PUNTERO 

150 

a 

Bi 

033 E 

84  02 

STY  $02 

200 

REM  ***  MODIFICA  BYTES  *** 

0340 

A9  A0 

LDA  í/$A0 

210 

READ  X : IF  X 255  THEN 

0342 

85  03 

BUCLE 

STA  $03 

D=X  : GOTO  210 

0344 

B1  02 

LEE 

LDA  ($02), 

Y;COPIA  BYTE 

220 

IF  X 999  THEN  POKE  D.X  : 

0346 

91  02 

STA  ($02), Y 

D=D+1  : GOTO  210 

0348 

C8 

INY 

;BUCLE  DE  256  BYTES 

230 

B 

B 

0349 

D0F9 

BNE LEE 

300 

REM  ***  ACTIVA  RAM  *** 

034B 

E6  03 

INC  $03 

INCREMENTA  PUNTERO 

310 

POKE  1,53 

CADA  256 

320 

END 

034D 

A5  03 

LDA  $03 

330 

i 

■ 

034F 

DO  01 

BNE  TEST 

;HA  LLEGADO  A $FFFF? 

400 

REM  ***  RUTINA  DE 

035! 

60 

RTS 

;FIN  DE  COPIA 

COPIA  *** 

0352 

C9  C0 

TEST 

CMP  #$C0 

410 

DATA  828 

0354 

DO  EE 

BNE  LEE  #;SI  LLEGA  A $0)00.... 

420 

DATA  1 60,0, 1 32,2, 1 69,160, 1 33,3, 

0356 

A9  E0 

LDA 

SIGUE  EN  $EO00 

177,2,145,2,200,208,249 

0358 

DO  E8 

BNE  BUCLE; Y SIGUE  COPIANDO 

MICRO  INFORMATICA  Y SOFT,  S.A.  (M.I.S.S.A.) 


ACTUAN: 

PEDROi 


PRESENTA 

5 JUEGOS  5 


PEDRO:  (Cuando  no  tiene  que  proteger  sus  flores  de  los  ataques  de  los  animales  y 

los  vagabundos.) 

EL  SIIPER  DETECTIVE:  (Sólo  los  domingos,  por  ser  el  día  en  que  no  trabaja  en  el  almacén  ocupán- 
dose de  los  cacos,  los  niños  perdidos,  y las  bombas.) 

EL  CAMARERO  LOCO:  (Sólo  en  días  de  fiesta,  ya  que  los  demás  se  dedica  a no  perder  su  empleo 

en  el  hotel  peor  organizado  del  mundo.) 

HECHIZADO!  (Si  consigues  “deshechizarte"  a lo  mejor  tú  también.) 

ARCADIA-64t  (Con  la  nave  estrella  más  potente  bajo  tu  control  puedes  hacer  lo  que  se  te 

antoje,  si  no  te  vence  Mordread,  claro.) 


BOLETIN  DE  PEDIDO 

INCLUYO  CHEQUE  NOMINATIVO  (M.I.S.5.A.)  POR 

♦ + + + + + + + + + I B 1 + + 1 B -»  «;  -fc  B p i |LJ  C -S  ^ f O S-  ■ 

PAGARE  CONTRA  REEMBOLSO  LA  CANTIDAD  DE 

pesetas. 

MAS  1 50  pesetas  de  gastos  de  envío  (de  1 a 5 cassettes). 


NOMBRE  

CALLE  .. Ne  ... 

PROVINCIA  . . TEL  


ENVIAR  A;  M.LS.S.Av  MAESTRO  CHAPI,  15.  MADRID-ló 


DESEO  RECIBIR  LOS  SIGUIENTES  PROGRAMAS: 

EL  CAMARERO  LOCO  (V-IC-20) Precio  1 .725  ...  □ 

EL  SUPER  DETECTIVE  (VIC-2G) Precio  1 725  ...  □ 

HECHIZADO  (VIC-20) Precio  1.825  ...□ 

ARCADIA-64  (C-64) Precio  2.125...  □ 

PEDRO  (C-Ó4) Precio  2.350  ...  □ 


COPYRIGHT:  IMAGINE  SOFTWARE  LIMITED. 

(ESTE  CARTEL  NO  ES  PARA  TURISTAS:  AQUI  DECIMOS  TODO  EN  ESPAÑOL) 

VENTA  SOLAMENTE  POR  CORREO 
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club 


is-iV  /.y 


entre 


escribir  a mano  pero  con  letra 
muy  clara. 

En  viurn  os  vu  es  i ra  di  re  edén 
para  que  podáis  poneros  en 
contacto  unos  con  otros . ¡Ani- 
maros, chicos  (, . . v chicas )! 


Esta  sección  está  dedi- 
cada a la  colaboración 

de  todos  nuestros  lecto- 
res y está  dividida  en  dos 
partes: 


venir  escritas  a maquino 


3)  Trucos , sugerencias t etc 


mas  granados  en  cuita  (si  es 
posible),  o con  el  listado  com- 


‘para  todos  los  participantes' 
Todas  i as  colaboraciones 


s mas  jovenes 


Clave  para  interpretar  las  listados 


El  resto  de  las  indicaciones  constan  de 
la  parte  COMM  o SHIE  seguidas  de  una 
letra,  número  o símbolo  —por  ejemplo 
| COMM 4]  o [SHIFA \ — . Esto  indica  que 
para  obtener  el  gráfico  necesario  en  el 
p rogra  m a d ebe  n p u I sa  rs  c s i m ultá  n e a me  n te 
las  teclas  COMMODORE  (la  que  lleva  el 
logotipo)  o una  de  SHIFT  y la  tecla  indi- 
cada por  la  letra,  el  número  o el  símbolo, 
en  el  ejemplo  anterior:  COMMODORE  y 
+ o SHIFT  y A,  respectivamente. 

En  los  signos  gráficos  además  se  cuenta 
el  número  de  veces  que  aparece.  Por 
ejemplo,  [7  CRSRR]  equivale  a 7 pulsa- 
ciones de  la  tecla  cursor  a la  derecha  y 
¡3  SPC]  tres  pulsaciones  de  la  barra  espa- 
dadora. ■ 


[CRSRD]  — Tecla  cursor  hacia  abajo 
(sin  SHIFT) 

[CRSRIJJ  = Teda  cursor  hacia  arriba 
(con  SHIFT) 

[CRSRRJ  = Tecla  cursor  a la  derecha 


dos  los  listados  que  se  publican  en 


■ modelo  correspondiente  de  la  gama 
de  ordenadores  COMMODORE. 

Para  los  programas  destinados  a los 
ordenadores  VIC-20  y COMMODORE 
64.  en  los  que  se  usan  frecuentemente  ¡as 

posibilidades  gráficas  del  teclado,  se  han 
sustituido  los  símbolos  gráficos  que  apa- 
recen normalmente  en  los  listados  por  una 
serie  de  letras  entre  corchetes  []  que  indi- 
can la  secuencia  de  teclas  que  se  deben 
pulsar  para  obtener  el  carácter  deseado.  A 

continuación  se  da  una  tabla  para  aclarar 
la  interpretación  de  las  indicaciones  entre 
corchetes: 


[CRSRLJ  = Tecla  cursor  a la  izquierda 
(con  SHIFT) 

[HOME]  = Tecla  CLR/HOME 


[CLR]  = Tecla  CLR/HOME 
(con  SHIFT) 

Las  indicaciones  [BLK]  a [YEL]  corres- 
ponden a la  pulsación  de  las  teclas  de  l a 8 
¡unto  a la  tecla  CTRL.  Lo  mismo  sucede 
con  fCVSON]  y |RVSOF]  respecto  a la 
tecla  CTRL  y las  teclas  9 y 10. 


Me  Hamo  Luis,  Tengo  21  años.  Soy  estudiante  y tengo 

un  Commodore-64  desde  noviembre  del  83* 

Me  interesa  la  programación  como  tal,  y los  programas  de  carácter 

científico-técnico  y aplicaciones* 

Como  no  puedo  permitirme  los  lujos  de  comprar 
Software,  todos  los  programas  que  tengo  son  originales,  copiados 

o fusilados. 


En  esta  línea  os  envío  este  programa 
grabado  en  la  cinta  que  os  adjunto 
como  ^MAf  & DETT\  Es  un  programa 
escrito  totalmente  en  BASIC  que  multi- 
plica dos  matrices  de  cualquier  orden  o 
calcula  un  determinante. 

Puesto  que  el  C-64  no  tiene  problemas 
de  memoria,  el  programa  indica  en  cada 
momento  al  usuario  las  operaciones  que 
este  debe  realizar,  permitiendo  incluso 
que  se  equivoque,  dándole  una  nueva 
oportunidad  en  la  introducción  de  datos. 
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Se  puede  calificar  “lento”  a este  pro- 
grama, pero  para  quien  esté  habituado  a 
hacer  ambas  operaciones  a mano  o con 
calculadora,  resolver  un  determinante  de 
7X7  en  4 segundos  o multiplicar  dos 
matrices  de  IGXIÜ  en  29  seg,,  le  parecerá 
una  velocidad  vertiginosa. 

Como  curiosidad  al  final  de  cada  ope- 
ración índica  el  tiempo  invertido. 

Aprovecho  la  oportunidad  para  mani- 
festar mi  voluntad  de  ponerme  en  con- 
tacto con  programadores,  aficionados  a 


este  tipo  de  programas  cien tifico-técn icos. 

A continuación  os  doy  una  descripción 
del  programa: 

50000-50190  PREGUNTA  POR  LA 

OPCION  DESEADA 
5G20O-50340  INTRODUCE  ORDEN 

DE  LAS  MATRICES  A 
MULTIPLICAR 

50350-50430  INTRODUCE  PRIMERA 

MATRIZ 

5 0440- 5 0500  INTRODUCE 

SEGUNDA  MATRIZ 
50510-50630  MULTIPLICA  LAS 

MATRICES  Y ESCRIBE 
RESULTADO 

50640-50650  ESPERA  UNA  TECLA 
50660  VUELVE  A 

COMENZAR 

50700-50880  INTRODUCE  ORDEN 

Y ELEMENTOS  DEL 


50350-50430 


50440-50500 


50510-50630 


50640-50650 

50660 

50700-50880 


50890-51030 

51040-51050 
5 1 060 


CALCULA  *Y  I 
SOLUCION 
ESPERA  UNA 
VUELVE  A 


TECLA 


51100-51140  INTERCAMBIA  DOS 


Mí  ' 


(♦..ojo  con  los  CLR  y con  el  redimensio 
namiento). 


El  programa  calcula  un  determinante 
triangula  rizando  la  matriz  correspondiente. 
Es  decir;  si  saliendo  del  programa  desea- 
mos ver  la  matriz  de  la  cual  hemos  calcu- 
lado el  determinante,  y escribimos  (modo 
directo): 

POR  HITO  N:  FOR  J=1  TO  N:  ? A (U); 


Si  no  tenemos  lo  que  busca  se  lo  encontraremos  en  un  tiempo  record 

y aun  precio  mínimo 


DISPONEMOS  DE  CLUB  DE  VIDEO  JUEGOS 

SI  NO  TIENE  MICROORDENADOR, 

LE  DEJAMOS  PROBAR  NUESTROS  EQUIPOS  SIN  COMPROMISO 


TENEMOS  MUCHAS  COSAS  PARA: 


COMMODORE-64  VIC-20  SINCLAIR  ORIC 

Y OTROS 


: NEXT  : ? : NEXT, 

no  obtendremos  la  matriz  original  intro- 
ducida, sino  su  correspondiente  triangula* 
r izada. 

La  numeración  alta  de  las  líneas  del 
programa  permite  introducirlo  como 
subrutina  de  programas  más  completos 


novo/digit 

microinform  atica 


C/  Aragón,  472 
Telf.  (93)  246  27  75 
-BARCELONA- 13 


► 1 *##****#***#K#¡*###**C  ERROR  3 " 

50130  PR I NT " E 7CRSRR  3 C BLK] t SPC 3 EI4HT3 
ESPC3ESHIFTT3ESHIFTE3ESHIFTC3ESHIFTL3 
ESHIFTE3ESHIFTADESPC3ESHIFT03ESHIFTP3 
ESHIFTC3ESHIFTI  3ESHIFT03  ESHIFTN3E2SPC3 
C BLK  3 E ERROR 3 " 

50140  PR I NT" C 7CRSRR3 t BLK 3 *********** 
************ [ ERROR  3 " 

50150  PR I NT " C CRSRB 3 E 2CRSRR 3 E CVN 31 ) E SPC 3 
EWHT3 C SH I FTP  3 ROWJCTO  E SPC  3 ESHIFTM3ATR 
ICESE SPC 3" 

50160  PR I NT M E CRSRD 3 E 2CRSRR 3 E CVN 32 > C SPC 3 
E WHT  3 C SH  I FTC  3HLCULÜ  E SPC  3 E SH  I FTIi  3ETER 
M I NfiNTÉ  C ERROR  3 " 

50170  GETHÍ:IFH$=n“THEN50170 
50180  I FRÍO " 1 » RNBRfO "2" THEN50 1 70 
50190  I Ffl*» "2" THEN50700 
50200  CLR 

502 1 0 REM***##*****#*#######**###### 

*** 

50220  REMifíStf 

** 

50230  REM**  PRODUCTO  HE  MATRICES 

50240  REM** 

#* 

50250  REM*************************** 


50000  REM########################### 

50010  REM## 

## 

50020  REM## " [ 2 SPC 3 E SH I FTP 3 E SHI FTP 3 E SH I FTO 3 
ESHIFTL3ESHIFTIJ3CSHIFTC3  ESHIFTT3  ESHIFTÜ3 
ESPC3  ESHIFTD3 E SHI FIE 3 E SPC 3 E SH I FTM 3 E SH I FTR 3 
ESHIFTT3 ESHIFTR3ESHIFTI3  E SHI FTC 3 ESHIFTE3 
ESHIFTS3E2SPC3”## 

50030  REM##,,[10SPC3íiC13SPC]"## 

50040  REM## " C 2SFC ] E SH I FTC 3 E SH I FTA 3 E SH I FTL 3 
E SH I FTC 3 E SH IFTU 3 E SH I FTL 3 ESH I FTQ3 [ SPC 3 
E SH I FTB 3 E SHI FTE 3ESHIFTT3ESHIFTE3C SHIFTR ] 

E SHI FTM 3 ESHIFTI DCSHIFTN3ESHIFTfi]tSHIFTN] 

E SH I FTT 3 E SHI FTE 3 E 2SPC 3 " ## 

50050  REM## " E 24C0MMT  3 " ## 

50060  REM##" E2SPC3RUTOR : ESPC3  E SHI FTL 3 
ESH IFTU3 ESHIFTI I ESHIFTS3  ESPC3 ESHIFTP3 
ESHIFTE3 E2SHIFTL3  ESHIFTI 3E SHI FTC 3 ESH IFTE 3 
ESHIFTR3  C2SPC3 “## 

50070  REM## 

## 

50030  REM########################### 

### 

50100  PRINT" ECLR] “ 

50110  P0KE53272j  23 ■ PRINTCHRSÍ3) 

50120  PR I NT " E 2CRSRL  3 E 7CRSRR  3 E BLK  3 *** 


Luis  Pellicer  Lorenzo 

c/Conde  de  Torree  ede  ira,  122,  3e  A. 

VTGO-8  (Pontevedra). 
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50260  PR I NT " [ CLR 3 í 2CRSRB 3 C 4CRSRR 3 [ BLK 1 
**C2CR$RR] [UHT3  CSHIFTP3 [5HIFTR3 [SHIFTÜ 3 
CSHIFTB3  CSHIFTU] tSHIFTC 3 CSHIFTT3 [SHIFT03 
CSPC1  [ SHIFTD3  CSHIFTE3 C SPC]  [SHI FTM 3 CSHI FTP 3 
ESHIFTT3  CSHIFTR] CSHIFTI  ] ÍSHIFTCJ [3HIFTE3 
[ SH I F TS  3 [ 2CRSRR 3 C BLK  3 * * [ ERROR ] " 

50270  FR I NT " C C VN  3 [ CRSRD 3 [ 2CRSRR 3 C SH I FT I ] 
NTRÜBUCE i SPC 3 ORDEN [ SPC 3 í SH I FTM 1 RTR I C 
ES  C SPC  3 = " 

50280  PR  I NT " í 2C  RSRIi  ] L CRSRR  3 C C VN  3 í SH  I FTO  3 
ROEN  [ SPC  3 [ SH  I F TM  3 RTF:  I Z C SPC  3 I SH  I FT  A 3 í SPC  3 


5029Ü  I NPUT " C CRSRD  3 C 3CRSR R 3 C C VN  3 [ SH I F T F 3 
I LHS C SPC 3 CWHT3 11 ; N - TF N=0THENPR I NT " í 3 CRSRU 3 

" ■ GOTÓS0290 

50300  INPUT" [CRSRD3 [3CRSRR3  CCVN3  CSHIFTC3 
ÚLUMNfiS  C SPC  3 1 UHT  3 " j M : I FM-0THENPR I NT  " 
C3CRSRU3 " =001050300 

503 18  PR 1 NT " C2CRSRD 3 C CRSRR 3 í CVN3  C SH I FTO 3 
RDENC  SPC 3 [SHIFTM3RTRIZCSPC3  CSHIFTB3  CSPC3 


50320  PR I NT " [CRSRD 3 C 3CRSRR 3 [ C VN 3 C SH I FTP 3 
ILRSCSPC3CWHT3?" ;M 

50330  INPUT" [CRSRD 3 [3CRSRR3  CCYN3  CSHI FTC3 
OLUMNflS  í SPC  3 C UHT  3 " ; P : I FP=0THENPR  I NT " 

[ 3CRSRU  3 GOTO50330 

50340  DIMftíN,M),BíriJR>/C<N,P) 

50359  PR I NT " C 2CRSRD 3 í 2CRSRR 3 E C VN  3 C SPC  3 
CSHIFTI INTRODUCE [SPC 3 ELEMENTOS [SPC 3 : 
[2CRSRD 3 n 

50360  FÜR 1 = 1 TON  ;■  FORJ-1  TÜM 

50370  PR I NT  M [ UHT  3 [ CRSRU  3 [ 2CRSRR 3 [ SH I FTfi  3 
CJ,I%  ‘,Ji,>CSPC3=[SPC3,,j  : INPUTRU,  J) 

50330  PR I NT 11  [CRSRU 3 C29SPC 3 M 
50390  NEXTJ.l 

50400  PRINT" CCVN3 [CRSRU 3 [2CRSRR3 [SHIFTS3 
0NC8PC  3 CORRECTOS  C SPC  3 < C SPC  3 [ SH 1 F TS  3 [ SPC  3 
/[SPC3  CSHIFTN3  CSPC3 ) [SPC3?" 

50410  GETHÍ : IFfl$0HS*,ANDA$0"N"THEN5 
0418 

50420  IFRi» MNM THENPRI NT “ [CRSRU 3 [ 34SPC 3 
" : GOTO50360 

50430  PR I NT " CCRSRU3 [ 29SPC  3 " 

50440  FORI-1TOM;FORJ»1TOP 

50450  PR I NT " [UHT 3 [ CRSRU 3 [ 2CRSRR 3 C SH I FTB 3 

("1%  11 J " 3 [ SPC 3 * [ SPC 3 " i ; INPUTBCI, J) 

50460  PRINT" CCRSRU3  C29SPC3 " 

50470  NEXTJM 

50480  PR I NT " [ C VN  3 [ CRSRU  3 [ 2CRSRR 3 [ SH I FTS  3 
ONÍSPC3CORRECTÜSÍSPC3  C [SPC3 CSHIFTS3 CSPC3 
X[SPC3  [SHIFTN3  [SPC3 ) ESPC3?" 

50490  GETR$  : IFfltO "S" RNDfi$0 "N" THEN5 
0490 

50500  IFFCM ,J N " THENPR I NT " [ CRSRU 3 [ 36 SPC ] 

11  GOTO50440 
50510  PRINT" [ CLR3 " 

50520  Rl-TI  F0RI*1T0N 

50530  IFI°N/2QRI=NX2+.5THENPRINTTñB< 

2) " [ WHT3  CSPC3 [SHIFTC3 [SPC3=[SPC3 [CVN3 


50540  PR  I NTTRB  ( 7 > " [ WHT  3 [ COMMH  3 [ CVN  3 


58550  F0RJ-1T0P 
50560  F0RS*1T0M 

50570  Ca,  J>*Aa,S>#B<Sy  J)+CCI,  J> 

50580  NEXTS 

59590  C< I , J>=INT<C< I , J)#1E4)/1E4 
50606  PRINTCa,J); 

50610  NEXTJ  - 

50620  PRINT" [UHT 3 [C0NMN3 [CVN3 " 

59630  NEXTI  R2=TI ■ PRINT" [3CRSRB3 [2CRSRR3 
[ WHT  3 C SH I FTT  3 I EMPÜ  t SPCT [ SKI FTE  3 MPLER 
DO  [SPC  3 = CSPC],,<R2-R1)/60,,SEG." 

50640  PR I NT " [ 2CRSRD 3 [ 1 9CRSRR 3 [ UHT  3 [ SH I F TP  3 


[SHIFTU3 [SHIFTL3 ESHI FTS 3 [SHIFTfl] [SPC] 
[SHIFTU3 [SHIFTN3 [SHIFTR3 [3FC3  CSHI FTT í 
[SHIFTE  3 [SHIFTC3 [SHIFTL  3 [ SHIFTfl] " j 
50650  GETflí : IFñ*=" "THEN50650 
50660  RIJN 


50710  RF.m* 

+ 4í 

50720  REM**  CALCULO  DETERMINANTE 


50750  CLR 

50760  PRINT" [CLR3 [2CRSRD3 [4CRSRR3 CBLK3 
4#C2CRSRR] [WHT] CSH1FTC3 [SH1FTR3 [ SHIFTL 3 
[SHIFTC3  CSHIFTU 3 [SHIFTL] CSHIFT03  ESPC3 
[SHIFTD3 [SHIFTE3 [SHIFTT3 [SHIFTE3  ESHIFTR] 
CSHI FTM 3 [SHIFTI3C  SHIFTN 3 [SHIFTfl] [SHIFTN3 
[ SH  I FTT  3 [ SH  I FTE  3 [ BLK  3 [ 2SPC  3 mí  ERROR  3 
[ CRSRD  3 " 

50770  INPUT" CCVN3I2CRSRR3 CSHIFTI 3NTR 
ODUCE [ SPC  3 ORDEN [ SPC  3 [ SHT  F TD  3 ETERM I NR 
NTEISRC3 : [SPC3";N 

30780  I FN=0THENPR I NT " [ 2CRSRU 3 C 33SPC 3 

M : GOTÜ50770 

50796  DIMR<N,N>>S<N) 

50800  PRINT" C2CRSRD3 [3CRSRR3 CCVN3 CSHIFTI 3 
NTRODUCE  C SPC  3 ELEMENTOS I SPC  3 : C2CRSRD3 


50810  FOR I = 1 TON  ^ FOR J= 1 TON 

58820  PRINT" CUHT3  C CRSRU 3 [2CRSRR3  C SHIFTfl 3 

C*'lu  / M J '* > [SPC 3 = [ SPC 3 " i - INPUTRa,  J> 

50830  PRINT" CCR3RU3 C29SPC3 " 

50640  NEXTJ,  I 

50850  PRINT"  CCVN3  CCRSRU3  C2CRSRRKSHIFTS3 
ON [ SPC  3C0RRECTQSC  SPC  K I SPC  3 í SH I FTS  3 C SPC  3 
XCSPC3  [SHIFTN3  CSPC3  > [SPC3?*1 
50860  GETft$  I Fñ#<> M S " RNDflíO  " N " THEN5 
0860 

50879  I FH$= "N" THENPR I NT " [ CRSRU 3 [ 34SPC 3 
" :GOTO50810 

30880  PR 1 NT " [ CRSRU  3 C 34SPC  3 " 


50900  F0RI»1T0N-1 
50910  FORT* I+i TON 
50920  B^ñíT j T> ’ C*R< I ; I> 

50930  I FB=0HNDC=0THEN50980 

50940  IFC=0THENGÜSUB51 100 : GOTO50900 

50950  FORS= I TON 

50960  R(S. T>=ñCS, T)-<BXC>#fl<S, I > 

50970  NEXTS 
50980  NEXTT , I 
50990  L“1 : F0RR=1TQN 
51000  L=R(R-R>*L 
51810  NEXTR 

51020  R2=TI = PRINT " C2CRSRD3 [3CR3RR3 C WHT] 
i SH I FTS  3 ÜLUC I ON [ SPC  3 : C SPC ]"<(-! > tD ) # 


5 1 030  PR I NT " C 2CRSRD 3 [ ERROR  3 C 3CRSRR 3 [ SH I F T T 3 
I EMPO [ SPC  3 EMPLEADO  C SPC  3 : " <R2-R1 >/60" 

SEO.  " 

51040  PR  1 NT N [ 2CRSRII 3 C 1 8CRSRR  3 [ SPC  3 [ UHT  ] 

CSHI FTP 3 ESHIFTU3 [SHIFTL 3 [SHIFTS3 [SHIFTfl 3 

[ SPC  3 [ SH I FTU 3 C SH I FTN  3 [ SH I FTR  3 [ SPC  3 [ SH I FTT  3 

[ SHIFTE 3 [SHIFTC3 [SHIFTL 3 [SHIFTñ] " J 

5 1 050  OETRS = I FH$” " " THEN5 1 050 

51060  RUN 

51100  D=B+1 

51110  F0RK=1T0H 

51120  S(K>=RCK,i  T™1  > - A<K.‘  T- 1 >=ñCK..  T) 

51130  R<K,T>=S(K> 

51140  NEXT : RETURN 
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Os  mando  este  programa  que  aunque  puede  parecer  un  poco  complicado 

es  muy  sencillo  de  funcionamiento* 


Si  os  animáis  a probarlo,  espero  que  os 
divirtáis  y que  no  os  gane  siempre,  un 
saludo  y hasta  pronto. 


Se  trata  de  un  juego  de  dados  con  figu- 
ras v la  forma  de  juego  es  como  La  del 

POKER. 

id  ordenador  "pasa"'  una  ¡ligada  y hay 
que  superarla,  si  no  se  consigue,  se  ano- 


tara un  punto. 

Sólo  se  puede  tirar  una  vez  cada  dado, 
en  cada  jugada. 

Para  empezar  de  nuevo  hay  que  pulsar 
“RETURNT'  y para  terminar  la  jugada  se 


THENMÍ < N > = " REPOKER 


4 m NEftT  H 

1000  fl$*Mía)+wa> 

1010  CÍ=Wf<3>+Ví<3) 
1012  EÍ=UÍ<2)+VÍ<2) 

1015  G$*m(A;'+V*<4> 
1020  FÍ=U*<5>+VSC5) 
1110  IF  Ei  THEN  Eí 
1120  IF  fi$=C*  THEN 
1130  IF  BÍ*GÍ  THEN  G$ 
1140  IF  ñí^Fi  THEN  Ff 


50  PR I HTCHRi  < 30 ) " f RV8ÜN  J M ; Rí 
60  FR1  NTCHRí-  < 5 ) ,r  C RVSON  1 [ SPCJPRRRLSPC] 
EMPEZRR  í S PC  ] PULSE  í SPC  J RE  TURN  C SPC  ;j 11 
65  FRINTCHRÍ '■  30> " [RVSON] Jl ; R$ 

68  PR  I NTCHRÍ  ( 3 1 > M [ RVSON  I M .i  Rf 
70  GET  Wí  IF  WÍOCHRtíl3>  GOTO  70 
30  PR I NT " [ CLP  1 " ' PR I NTCHRÍ  ( 5>  : B (1 ) =0  : 
J=1 

90  FOR  N=1  TO  5 

100  V< N>  = INT<6*RHHa>>  + l 

102  vs<n:-=0 

lie  NEXT  N 

115  IF  V(l)^5  ÜR  V<2>=6  THEN  V(1)=V( 


118  V(5)=V(1) 

120  FOR  N-l  TO  5 

1 30  Ví  < n > = " c spc i 11 : m <n - " r spc ] " : v í n ) 

“0  B í 2 ) “0 ■ VR  í N $ “0 
135  NEXTN 
150  REM 

160  FOR  N-l  TO  5 

170  IF  VíN)=l  THEN  Ví CN>=H [SPC JHECSPC 1 
11 

171  IF  V<N>=2  THEN  V*CN>=M CSPCJDECSPC 1 
REVE^' 11 

172  IF  V ( N > -6  THEN  V»<N)  = N C SPC] DEC SPC 1 
NEGROS " 

173  IF  V < N > = 3 THEN  V* <N>  = " [SPC] DEC SPC 3 

p|C¡ 11 

175  IF  V < N > = 4 THEN  VÍ<N>="[ SPC] DEC SPOT 
JÜTRS11 

178  IF  V ( N > =5  THEN  Vi <N  > ” " C SPC ] DE [ SPC ] 
ROJOS11 

275  IF  Va>=VaO  THEN  V(1)=V(1)  + 1 
295  IF  •:! 2 > -V < N > THEN  V<2)=V<2>  + 1 
305  IF  V ( 3 > “ V < H ‘ 1 THEN  V<3>«V<3>  + 1 
315  IF  V<4>  = V<H>  THEN  V(4>=Ví.  4H1 
325  IF  V < 5 > - V ( N ''  THEN  Y(5)=V<5>+1 
328  NEXT  N 
330  FOR  H=1  TÜ  S 

350  IFV < N > = 1 THENNí < N > “ " UNO " : E < J ) =E ■ J 


PirKin 


r^-fl  A,.  C ■■40 1 1 ! QtíM 


CBM64 

VIC-20 


CJti",r-y+ 


T fiL  22  8G  1 4 - T jrratjonj 

’ CURSOS  DE  PROGRAMACION  BASIC 
' PERIFERICOS  VIC/CBM-G4 
h PROGRAMAS  PARA  EMPRESAS: 

— Contabilidad  general  PIM 

Proceso  de  textos.  Base  de  datos,  Videoclubs, 
—Programas  a medida 

' ACCESORIOS,  CONECTORES,  ETC, 

TECNHEL*  S,  A,  de  Ingeniería  NLF  a43036094 
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1158  IF  B$=C*  THEN  Cí="" 

1160  IF  Bt=Ot  THEN  O#*"" 

1170  IF  BÍ=FÍ  THEN  F$=,,M 

1180  IF  C$=GÍ  THEN  G*="" 

1190  IF  C*=FÍ  THEN  F*=“" 

1200  IF  GÍ=Ft  THEN  Fí="" 

5000  PR I NT " [ CLR ] " r PR I NTCHRÍ  í 30  > 

5010  PR  I NTTfiB  í 7 ) " [SHIFTIJ][3$HIFTC3  CSHIFTI] 

C 3SPC K SH I FTU K 3SH I FTC J C SHI FT IT [ 2SPC ] 
[SHIFTUK3SHIFTCT[SHIFTn*' 

5035  PR INTTflB < 7 > ” [ SH I FTB 3 1 3SPC ] [SHIFTBT 
C3SPCT  CSHIFTBH3SPC3  CSHIFTBH2SPCHSHIFTB3 
C3SPCT  CSHIFTB] " 

5040  PR I NTTRBÍ  7> "tSHIFTJH 3SH I FTC T [ SH I FTK T 
C3SPCT [SHIFTJT [3SH1FTC3CSHIFTKTC2SPCT 
[ SH I FT J ] [ 3SH I FTC ] [ SH I FTK ] " 

5050  PRI NTTRB ( 1 1 >" CSHIFTUJC3SHIFTC3 [SHIFTI ] 
C3SPC3 [SHI FTU] [3SHIFTC3 [SHIFTI T" 

5070  PR I NTTRBC 1 1 ) " [ SH I FTB 3 [ 3SPC ] C SH I FTB ] 
C3SPC] [SHI FTB] [3SPC 3 [SHIFTBT " 

5080  PR I NTTRB (1 1 > “ [SHIFTJT C3SHIFTC] t SHI FTK 3 
[ 3SPC ] [ SH I FT J 3 C 3SH I FTC  3 1 SH IFTK ] ” 

5090  FOR  T=1  TO  2 

5100  PRINT” [3SPC3CSHIFTUT  C26SHI FTC 3 CSHIFTI 3 


5 1 85  PR I NTTRB C 4 ) "[SHI FT J 3 [ 5SH I FTC 3 [ 
" T HE  ( 22  -■  " [ SH  I FT  J 3 [ 5SH I FTC  3 [ SH  I FTK  3 " 
5200  FOR  H=1  TO  5 

5210  IF  VÍH>=1  THEN  I$<H>=" [SHIFTO] 
5220  IF  V<H3»=2  THEN  IF<H>="K" 

5230  IF  VCH>=3  THEN 

5240  IF  V<H)=4  THEN  I$CH>  = ".T" 

5250  IF  V í H > =5  THEN  ITCH>  = "R" 

5260  IF  V < H > =6  THEN  I*<H>=“N" 

5270  NEXT  H 

5380  PR I NTCHRÍ ( 5 > " [ HOM 3 [ 2CRSRD 3 " 

5310  PRINTTflB<9)IÍ<l > ¡ 

5320  PR I NTTRB  d 7 ) I í ( 2 ) í 
5330  PRINTTRB<24> I$í3> 

5340  PRI NT ■ [ 2CRSRB 3 "TRBÍ 1 3 > lí ( 4 > ; 
5350  PR 1 NTTRB <21 > I $ < 5 > 

5370  PRINT" E2CRSRB3 "THB< 10>fl4 
5380  PRINTTRBC 10)BI 


5395  PR I NTTRB  < 1 0 > Gí 
5410  PRI NTTRB < 10>F$ 

5500  PR I NTTRB  í 6 > " [ 2CRSRD 3 RUE [ SPC  3 BRD 
O [ SPC 3 QU I ERES [ SPC  3 T I RRR? “ 


5510  PRINTTflBC 12>" 1 [3SPC32C3SPC33 
5520  PR I NTTRB Í1 4 ) " 4 [ 3SPC 35" 

5530  PR I NTTRB C 7 > TUTRB ( 25  > VO 
5535  PR  I NTTRB  < 1 2 i'  " JIJGRBfl=F  1 " i 
5540  GET  EE* 

5550  EE= I NT  < VRL ( EEí > ) 

5555  IF  EE>0  RNB  EEC6  THEN  60RO 

5560  IF  EE*="[F13"  GOTO  7000 

5565  IF  EE*=CHR$ < 1 3 > GOTO  10 

5570  GOTO  5540 

6000  VS  <EE  > = VS  < EE  > + 1 

6010  IF  VS<EE»1  GOTO  5540 

6020  V < EE  > = I NT  f 6*RNE  C1 >1  + 1 


5110  PRINT"  [3SPC1CSHIFTBK26SPC3  [SHIFTB] 


5 1 20  PR I NT " [ 3SPC 3 C SH I FTB 3 [ 26SPC 3 C SH IFTB 3 


5130  PR I NT " [ 3 SPC 3 [ 3H I FTB 3 [ 26SPC 3 [ SH I FTB 3 


5140  PR I NT " [ 3SPC 3 [ SH 1 FTB 3 [ 26SPC 3 [ SH I FTB 3 


1 50  PR I NT " 1 3SPC ] [ SH I FTB  3 [ 26SPC ] [ SH I FTB ] 


170  PR I NT " [ 3SPC  3 [ SH I FT J 3 C 26SH I F TC  3 1 SH I F TK  3 


5180  NEXT  T 

5181  PRI NT " [ 5CPSRU 3 " 

5 1 82  PR I NTTRB < 4 > " [ SH I FTU 3 [ 5SH I FTC 3 [ SH I FT I 3 
"TRB(22> " [SHI FTU 3 C5SHIFTC3 CSHIFTI ] " 

5184  PR I NTTRB  < 4 > " [ SH I FTB  3 TU 1 3SPC 3 C SH I FTB 3 
" THE  < 22  > " [ SH I F T B 3 VÜ [ 3SPC 3 [ SH I FTB  7 " 


7000  IF  B<2X=B<  1 > THEN  VO=YfHl 
7010  IF  BC2>>B( 1 > THEN  TU=TU+1 
7830  GOTO  80 


Antes  que  nada  os  quiero  felicitar  por  vuestra  revista 
porque  me  ha  ayudado  mucho  y me  ha  enseñado  muchas 

cosas  que  no  sabía  aunque  hay  cosas  que  no 

entiendo  todavía. 

Os  presento  mi  programa  ‘ARAC-  nave  y de  la  bala.  El  máximo  es  9 y ¿1 

NIDA”  para  Commodore  64,  por  si  mínimo  0.  pero  si  pones  0 no  le  puedes 

os  puede  interesar.  mover. 

Todo  empezó  con  unas  simples  pruebas  Luego  empieza  la  batalla,  tú  manejas  la 

con  los  sprites  y tras  19  mejoras  importan-  nave  que  aparece  abajo. 

tes  (porque  las  no  importantes  no  las  Los  mandos  son1 
guardo)  he  conseguido  este  programa  ., 

(cosa  que  no  esperaba  al  principio),  ® Arriba 

/Abajo 

Empieza  la  batalla  dzquierda 

Nada  más  empezar  el  programa  el  ; Derecha 

ordenador  te  preguntará  la  velocidad  de  la  (Espacio)  Disparos 


tienes  que  matar  las  seis  atañas  pero 
sin  que  ellas  te  coman.  Si  matas  a todas 
las  arañas  el  ordenador  te  dirá  el  tiempo  > 
si  has  batido  el  récord. 

Si  te  matan  tres  veces  simplemente  te 
preguntará  a ver  si  quieres  volver  a 
empezar. 

Los  rombos  que  aparecen  arriba  a 3a 
izquierda  son  las  naves  que  te  quedan. 

Quiero  explicaros  brevemente  el  pro- 
grama: 

Lineas  Función 

10  Activa  las  Léelas  repetitivas 

1 5-50  Te  pregunta  la  rapidez  de 

la  bala  y de  la  nave 

60-95  Poner  valores  iniciales  a los 
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KM) 

Dibuja  los  rombos 

120-140 

Activa  los  sprites 

150-170 

Lee  los  datas 

180-220 

Determina  y dibuja  los 
sprites 

240-310 

Recoge  con  G ETS  el 

movimiento 

320-370 

Si  te  matan.,. 

380-430 

Si  matas,,. 

440-660  Pone  en  marcha  los  reboles 

670-720  Movimientos 

2000-4007  Datas 

6000-6020  SONIDO 

10000-20030  Si  ganas 

202  J 0-20340  Si  pierdes 

¡Ah!  Y gracias  a José  Ramón  Lasa  por 
su  programa  de  Editor  de  sprites  porque 


me  ha  ahorrado  mucho  tiempo  y trabajo 
para  crear  mis  arañas. 


Carlos  Reldarrain  Santos 
11  años  de  edad 

(;¡¡sh  sólo  11,  estoy  en  6“  de  E*G,B.!M) 
C/Hermanos  Imaz,  t-7g  D. 
PAMPLONA.  Teléf.:  23  79  92 


0 rem  ************** 


1 REM  * 

2 REM  * 

3 REM  * 

4 REM  # 

5 REM  * 


RRRCNinfi 
POR : 

CARLOS 


* 

* 

* 

* 

* 


É REM  * BELDARRAIN  * 


REM  * 


* 


S REM  ************** 

10  POKE650.255 

15  L * 1 27  - PR I NT " [ CLR 3 C CR3RB 3 [ 3SPC 3 RñP 
I DEZ  C SPC 3 DE  C SPC  3 L fl  C SPC  3 NAVE  í SPC  3 1 -9  C SPC  3 


II 


20  GETLY4 ¡ IFLVi*" "THEN20 
25  LV-VflLÍLV*) 

30  LR=LV: IFT=0THEHT=1000 

35  PR I NT " [ 2CRSRB  ] [ 33PC ] RñP I BEZC  SPC J D 

E [ SPC ]LA t SPC ] BALA [ SPC ] 1 -9CWHT ] [ SPC  3 " 

40  GET  MNÍ : IFMN4=" "THEN40 
50  MN“VAL<MN$) 

60  PR1 NT" [ERROR] " : Tlt=’'000000" 

70  PRINT" CCLR] " iRSD»INT<RND<5)*200>+ 
20 

80  I FASD/20 1 NT  < ASB/2) THENASL=ASD+  í 
90  RE=0 ■ MR=0 ! NA=3 

93  F=A3B : DF-2 : G=RSB ■ DG=2 : C=1 72 : H= 1 0 : 
DH=5 i I =28 : D I =4 : J=50 : DT=4 : K=L+5 : M=2 1 0 
; MV=2!0 

95  V-53248 : X=7@ : DX=8 : Y=70 :BY=10- fl=84 
: Bfi= 2 : B=76 ; DB=2 : B= 150 ■ DD=2 ■ E* 1 50 : DE* 
2 : NN*0 

100  P0KE33281 , 8 

1 10  F0RLA= 1 T03 í POKE 1 024+LA , 90 ¡ NEXTLfl 
120  P0KEV+21 , 255 

130  POKE2042, 192 : PÜKE2043, 192:POKE20 
44, 192 ¡ POKE2040, 192 : POKE2041 , 192 
1 40  POKE2046 , 198 ■ POKE2047 ,199: POKE20 
45, 192 
145  RESTORE 

1 50  FüRN=0TO62  READQ : PGKE 1 2288+N , Q : N 

EXT 

160  FORN=0TO62 : REHDZ : POKE 1 2736+N , Z : N 

EXT 

1 70  FORN=0TO62 : READZ : POKE 1 2672+N , Z : N 
EXT 

180  P0KEV+23, 78 : POKEV+29, 78 : P0KEV+39 
, 15 : POKE V +40,  7 ¡ POKEV+41 , 15 : POKEV+42, 
15 

190  POKEV+43 , 15 : POKEV+44, 15 :P0KEV+45 
, 2 : FQKEV+46 , 3 

200  P0KE7+4,  X : P0KEV+6,  C t POKEV+8 , 1)  ■ PO 
KEV+0, F ; POKEV+2, H : PQKÉV+10, I :R0KEV+1 

210  P0KEV+ 1 4 , K ; PÜKEV+ l 5 , M 
220  POKE  V+5,  V '■  POKEV+7 , E POKEV+9,  E : P 
0KEV+1 , G : POKEV+3 , RSD ' P0KEV+1 1 , J ' POKE 
V+ 13»  MY 

230  I FRE  =6THENGÜTQ 1 0000 
240  GET AÍ ■ IFA#*"J " THENL=L+LR 


► 


► 


270 

290 


3 


3 1 0 
320 
NDL 
3 30 
NHL 
3 4 0 
NDL 

9 5 0 


IFfti*" : "THENL=L-LR 
I Fflí  = " ij 11  THENMY=MY-LR 
I Fht* " / 11  THENMV=f1Y+LR 
GETBÍ  IFEí="[3PC] "THENNN=1 

IFNN=lTHENn=n-MN 
IFH<30THENR=230 ■NN=0 
IFMY<V+10RNDMV>V- 10THENIFLOÍ+ 10A 


V _ 


I ■. 


10THEN20210 


IFMV<B+10ANEMV>B-10THENIFL<C+10A 

>C-10THEN20210 

I Ff-1  V CE+1 0ANBM Y>E - 1 oTHFM IFLCD+  1@A 
>D- 1 0THEN202 1 @ 

I FMYCG+ 1 0ANDMVX4-  i 0THEN I FUF + 1 0A 


¡¡¡QUE  NO  SABES  COMO 


SUSCRIBIRTE  A COMMODORE 

WORLD!!! 

¡¡¡PUES  VENGA,  LLAMANOS!!! 

(91)  259  54  78 
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NDL>F- 1 0THEN202 1 6 

360  IFMV:flSE+10flNDMV>RSD-10THEHIFL<H 
+ 1 0RNDL>H~ 1 0THEN26210 
370  I FMVCJ+ 1 0RNDMYXT- 1 0THEN I FL< I + 1 0fi 
NDL> I - 10THEN202 1 0 

380  I FÍKY+20RN DM  > Y- 1 0THEN1F K<X+20RND 
K>X~ 1 0RNDNN=  1 THENDX-0  ‘ V=0  : LY*0  ■ M=28  i 
RE-RE+l 

390  I FM<B+20RNDM>B- 1 0THEN ! FKCC+20RND 
K>C~ 1 0RNDNN- 1 THENDR-0 : B-0 ¡ BB-0 : M=28 : 
RE=RE+1 

400  I FM<E+20RNDM>E~10THENI FKCD+20RND 
K>D- 1 0RNDNN* 1 THENDD-0 ¡ E=0 : BE=0 : M=28 : 
RE=RE+1 

410  IFM<G+20RNDM>G-18THENIFK<F+20fiMD 
K>F- 1 0RNDNN-1 TH£NDF=0 : 0-0 ¡ DG=0 : M-28 : 
RE-RE+1 

420  IFn<RSD+20fiNDI1>flSI)-10THENIFK<H+2 
0RNDK>H-1 0RNDNN-1 THENDH-0 : RSD-8 ■ M=28 

- i 

430  IFM< J+20RNDM> J- 1 0TNEN I FKCI +20RND 
K>I-10RNDNN=1THEMDJ*0  : 1-0 : 1)1=0 : M-28 : 
RE-RE+1 

440  IFX>*254THENDX— EX 

450  IFXC22THENDX— DX 

460  IFY>230THENDV— DY 

470  IFY<50THENDY— DY 

430  IFfi>234THENDR— Dfi 

490  I Ffi< =0 T HEN Dfl = - DR 

500  IFB>230THENDB— DB 

510  IFB<50THENBB*-DB 

520  I FD>-2 54 T HENDÍ— DD 

530  IFD<20THENDD— DD 

540  IFE>230THENDE=-DE 

550  IFEC50THENDE— DE 

560  IFF<18THENDF— DF 

570  I F F>2 50 T HE  NDF = - BF 

580  IFG<18  THENDG— DG 

590  IFL>245THENLa245 

600  IFMV9235THENMY-235 

610  IFL<0THEHL=0 

620  I FMY<0THENMY*0 

630  IFG9232THENDG—DG 

640  IFH<-0ORH>*255THENDH— DH 

650  I FK20OR I >®252THEND  I — D I 

660  IFJ<30GRJ>230THENDJ— DJ 

670  X=X+DX : V=Y+DY : R-R+DR : B*B+DB : C=25 

3-H : D-D+DD : E=E+DE ■ F=F+DF ■ G-G+DG : H=H+ 

DH 

680  I FNN=0THENM=MY 
690  I FNN-0THENK-L+5 
700  I=I+DI : J-J+DJ 
710  I=I+DI : J=J+DJ 
720  GOTO200 

2000  REM  RRRNIfl 

200 1 URTR  0,  0 , 0,  0,  0,  0 , 0,  0,  0 

2002  DRTfi  8,  0 > 16,  28, 

, 124 

2003  DRTfi  103,  6@,  230, 

5,  17,  255,  136 

2004  DRTR  59,  255,  220,  127 
4,  207,  60,  243 

2005  DRTR  7,  153,  224,  23, 

63,  231,  252 

2006  DRTR  127,  129,  254,  96 


0,  56,  62,  0 


195,  255,  19 


126,  25 


b 


- iO 


2007 

3000 

DATA  0,  0 
REM  NAVE 

0, 

0, 

y , 

0, 

0, 

0, 

0 

3100 

DATA  A,  0, 

0, 

0, 

0.. 

0, 

0, 

0, 

0 

3208 

DATA  0,  O, 

0, 

0, 

0, 

0 , 

0, 

0, 

0 

3300 

DATA  0,  0, 

0, 

0, 

0, 

0, 

0, 

0, 

0 

3400 

DATA  0,  0, 

0, 

0, 

0, 

0, 

0, 

16, 

► 


► 


0 


DfiTñ 

0, 

16, 

A . 

■W  f* 

0, 

16,  0, 

0, 

DRTR 

0 , 

56 , 

0, 

0, 

124,  0, 

0 

DRTR 

0 j 

233, 

0, 

0. 

- 198,  6 

1, 

4,  0 
3709 
93,  0 

4000  REM  OVNI 

4001  BATA  0, 

4002  BATA  0,  0,  0,  6,  9 

4003  BATA  15, 

, 30,  0 

4004  DATA  30, 

■ 0 


12 


1 


222,  0 


di 


8 


0, 

0,  0, 

0,  0 

0, 

0,  1, 

224, 

31 

, 254, 

0,  30 

30 

, 30, 

0,  15, 

J1 

48,  8, 

6,  24 

0,  0, 

0 , 0 , 

0, 

0,  0, 

0,  0 

E54273,2 

: PQKE5 

4006  DRTR  12,  12,  9,  ! 

9 

4007  DRTR  0,  0,  0,  0, 

6000  P0KE54277, 130:PQI 
4272 ,140: R0KE54278, 1 30 

6010  P0KE54276, 1 29 : P0KE54296 , 15 
6012  FORID-1TO900 ¡ NEXTID 
6015  P0KE54276, 15 
6020  RETURN 

10000  REM  ***#  GRNRS#»#* 

10005  P0KE53281 , 7 • POKEY+21 , 0 
10010  PR I NT" [ WHT I C 1 0CRSRR ] [ 9CRSRDI CRVSON ] 
HRS [ 3CRSRL ] C 2CRSRD ] VENC I DO [ 7CRSRL K2CRSRD] 
RLC2CRSRL3  C2CRSRD] ENEMIGO C3CRSRD1 " i 
1 0020  fi-TI/60 : PRINT" [ CRSRD 1 [ 7CRSRL 1 [ WHT ] 

T I EMPO : " ; fi : PR I NT " C6CRSRRI C CRSRD ] REGO 
RD" j T; "SEGUNDOS" 

10030  PR I NT " E GRN ] CHOM 1 " 

10035  IF  ñ<TTHENGOSÜB20000 

10040  PRINT" CWHT][5CRSRR]QUIERECSPC1 

VOLVER! SPC IRE SPC lEMPEZfiRCSXNV1 

10050  GETC* : IFC$=""THEN10050 

10060  IFC$-"S"THEN10 

10065  IFC$O"N"THEN10050 

1 @070  PR I NT  " E WHT ] [ 5CRSRRJ E CRSRD USE! SPC 1 

RCRBO" 

10080  POKE650, 9 : ENIt 

20009  PRINT" C4CRSRRK CRSRD H WHT IRE SPCI 
CRBRS  ESPC IDEE  SPC I BRTIR [ SPC  ] EL  C SPC I RE 
CORD" 

20010  T=fl : PR I NT" NUEVO! SPC I RECORD : " i T 

Üi 

28030  RETURN 

20218  REM**##  PIERDES  **#* 

20215  NA=Mñ- 1 ► MV“2 1 0 : L“í 55 : K=L+ 1 0 ■ M= 

MV : NN-0 : QOSUB6000 

2021?  IFNA^ITHENPOKE 1024+2, 32 

20218  IFNR=2THENP0KE 1024+3, 32 

20219  IFNR=0THENPOKE 1024+ 1,32 

20220  I FMAO0THEN200 
20225  P0KE53231 , 7 
20230  POKEV+21,0 
28296  PRINT "[ERROR]" 

20300  PRINT 

203 1 0 PR  I NT  " FL4HT 11 3C-RSRP  J [ 2CRSRR  ] TE  [ SPC  J 
MAC  SPC]  VENC  IDO 11 

20320  PR I NT " C WHT ] L2CRSRB 3 [ 5CRSRR]  EL. " 

20330  PR  I NT  " C WHT  3 í 2CR3RI'  ] í 3CRSRR  3 ENE 

MioocscRSRii]" 

20340  GOTO 10840 


i 
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Queridos  amigos  del  equipo  Commodore  World: 

En  primer  lugar  quiero  felicitaros  a todos  los  que  hacéis 
la  revista  de  Commodore  World,  ya  que  me  gusta 
como  habéis  empezado  así  como  también  el  contenido  de  la  misma. 


Yo  por  mi  parte  voy  a intentar  modes- 
tamente colaborar  (si  lo  dais  de  paso) 
en  esta  ocasión  con  un  juego  que  está  muy 
de  moda  en  bares  y cafeterías  como  son 
[as  Máquinas  de  Frutas;  supongo  que  hay 
otras  versiones  más  o menos  sencillas  para 
los  chavales  como  yo,  pero  he  querido 
hacer  Ja  rnia  propia  para  practicar  con  el 
VJC-20  a la  vez  que  me  divierto.  Paso  a 
comentar  brevemente  las  funciones  de  las 
lincas  del  programa* 

De  la  10-414  Generan  las  instrucciones 

data  para  los  dibujos  en 
alta  resolución  de  las 
frutas,  NOTA;  si  queréis 
crear  otros  dibujos, 
utilizar  el  editor  de 
caracteres  de  la  revista 
Club  Commodore  nQ  3. 

De  425-491  Contiene  Jas  instrucciones 

de  las  variables  de  los 
gráficos  (Frutas). 

De  492-499  Son  las  instrucciones  que 


de  509-610 


de  617-663 


dibujan  el  marco  que 
encierra  a las  frutas. 

En  estas  lincas  están  las 
instrucciones  que  de 
forma  aleatoria  escoge 
una  fruta,  asi  como 
también  contiene  el 
sonido  de  la  rotación. 

En  estas  líneas  están  ios 
premios  obtenidos  así 
como  ios  avances, 
considerados  como  un 
posible  premio. 

Estas  generan  la  música 
de  los  premios,  que  los 
hay  menores,  mayores  y 
especial  (JMX3). 

de  (005-1150  Contienen  tas  instrucciones 

para  que  de  forma 
aleatoria  imprima  los 
avances. 

de  I í 60-1 170  Contiene  las  instrucciones 

Print  que  indican  el 


de  665-692 


seguir  jugando  o finalizar 
(por  haber  saltado  la 
banca  o haberse  quedado 
sin  blanca). 

FORMA  DE  JUGAR:  Después  de 
cargar  el  programa  se  hace  RUN  y el 
programa  entra  en  funcionamiento  auto- 
máticamente y no  se  detiene  hasta  pulsar 
cualquier  tecla;  si  se  obtiene  premio  dará 
la  puntuación.  Si  no  sale  ningún  premio  o 
para  comenzar  otra  partida,  pulsar  una 
tecla  cualquiera  para  poner  en  marcha  y 
se  deja  rodar  a voluntad  hasta  que  se  para 
con  otra  tecla;  si  sale  un  avance  como 
posible  premio,  entonces  pulsar  la  barra 
espaciador  a (lo  indica  en  pantalla).  Este 
programa  yo  lo  he  metido  en  el  V1C-20 
con  sólo  ampliación  de  3K,  o sea  que  los 
que  tengáis  inás  Ks’  podéis  introducir 
mas  vanantes  en  el  juego,  pero  eso  lo  dejo 
a gusto  del  programador* 

Espero  que  esta  mi  primera  colabora- 
ción les  sirva  al  equipo  de  Commodore 
World  asi  como  alguno  de  sus  lectores. 


Miguel  Cortijo  Maesa 
13  años 

C/Guatentala,  9 - LE  Val  I a dolí  d- 14 
Teléf,:  23  08  76 


JUEGOS  Y PROGRAMAS 

SELECCIONADOS 
PARA  COMMODORE-64 

Y VIC-20 
Pídanos  catálogo 

Gratuito  ICOSA 

Escríbanos  o llámenos  por  teléfono 
ICOSA 

EDIFICIO  TORRE 

ORENSE  TELE  (988)  2340  50- TELEX  ICPO  E 88168 

(CÓDIGO  POSTAL  32003) 

DESCUENTOS  A DISTRIBUIDORES 
DE  COMMODORE 


COMO  GANAR  EN  CUALQUIER 
VIDEO  JUEGO  CON... 

DISPARO 
AUTOMATICO 


Compatible  con: 

CGMMQDORF 
VIC-20 
ATARl 


-G4 


'Empuñadura  anatómica 
‘Botón  de  autudisparo 
'Disparo  con  dedos  índice 
‘Ventosas  de  sujección 


o 


SINCLAIR  (Con  interface) 

LE  REGALAMOS 
PARA  EL  C-64 

UN  JUEGO  CON 
CADA  JOYSTtCK 

pulgar  PRECIO  4.!HH>Pli 

(Incluidos  gastos  de  envía) 
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1 5 REM*##MAGU  INR  HE  FRUTAS*** 

► 

492  PRINT  " [ CRSRU  ] £ PUR  3 ®®®0®®(«®@®®8®fl 

6 REM*#*PÜR  MIGUEL  ñ.  CORTIJO*** 

® § <3  d í?  @0  [d  if  fi  id  id  fá  fé  id  fiibií  ra  r*  fwfor*  @ ib 

7 REM*##  28-3-1 9m  *** 

1 } Id  1 d fjtf  fli  i * (*  Id  fd  rí  Id  \6  « 

S REM  INSTRUCCIONES  DATA 

493  PRINT" C5CRSRD3 000®®®®®®®®®®®®®®® 

10  PRINT"  CCLR] " PGKE52,  ¿8  : PÜKE56,  28 

IB  fa  r«  ÍB  Id  Íl  i«m  rifa  ra  la  ÍB  » 

20  POKE36869 , 255 1 PÜKE36379 ,158 

494  PR I NT  " [ BLÜ  3 [ HOM 3 C 3CRSRH  3 [ 2SH 1 FT(* 3 

! 25  FORI-0TO254 

[ CRSRD  3 C2CRSRL 3 [ 2SHIFT0 3 [CRSRD 3 [ 2CRSRL 3 

38  RENDA 

[ 2SH IFT0JC CRSRD3 [ 2CRSRL  3 [ 2SH I FT®  3 [ CRSRD  3 

32  POKEI+7168, A 

[ 2CRSRL 3 [ 2SH IFT0  3 [ CRSRD ] [ 2CRSRL ] [2SHIFT0] 

35  NEMT 

II 

37  FOR I =0TÜ7  REflDfi  ■ F'ÜKE  I +7424 , H NEXT 

495  PR I NT " £ HOM ] [ 3CRSRD 3 [ 7CRSRR 3 [ 2SH I FT®] 

' PUKE86869,  240 

C CRSRD  3 [ 2CRSRL ] C 2SH I F T8 ] [ CRSRD ] [ 2CRSRL  3 

33  W=0  - L=5  ■ P0KE36869 ..  255 

C2SHIFT03 [CRSRD  3 [ 2CRSRL 3 [ 2SH I FT0 3 [ CRSRD 1 

39  DATA0  , 255 , 255 , 255 , 255. 255 ..  255 , 0 

40  HñTñ0..  1, 1,3. 3..  3. 7. 7 

C 2CRSRL ] C 2SH I FT0 ] [ CRSRD  3 [ 2CRSRL  3 [ 2SH I F T0  J 

0 

50  DHTñ224,0,0,  128, 128,  128,  192, 192 

496  PRINT " [ HOM 3 1 3 CRSRD ] [ 1 4CRSRR } C 2SHI FT03 

1 60  DATAIS,  15,31,31,31,31, 15,6 

[ CRSRD  3 [ 2CRSRL 3 [ 2SH I FT@ 3 [CRSRD 3 [ 2CRSPL 3 

70  DAT  A224 , 224 , 240 , 240 , 240 , 240 , 224 , 1 

[ 2SH IFT0] [ CRSRD  3 [ 2CRSRL 3 C2SH I FT0 3 [ CRSRD  3 

92 

[ 2CRSRL  3 [ 2SH I FT»  3 [ CRSRD  3 C 2CRSRL  3 [ 2SH I FTU  3 

80  IifiTñSl , 63,51 , 3,  6..  12,24,56 

II 

90  DRTR128,0, 128, 192,96,96, 112,216 

497  PR I NT" [HOM3  C3CRSRD3 [ 2 1CRSRR 3 C 2SH I FT0 3 

100  IiRTfll08,92,92,124,  124,124,56,6 

[ CRSRD  3 [ 2CRSRL 3 [ 2SH IFT03 [ CRSRD 3 [ 2CRSRL 3 

110  DATA184, 184,248,248,248. 112.0,0 

[ 2SH IFT®  3 C CRSRDD C 2CRSRL.  3 [ 2SH I FT0 ] [CRSRD  3 

1 20  PRTH7,  3,1,1,31 , 23,  29,23 

[ 2CRSRL  3 C 2SH I FT®  3 [ CRSRD  3 [ 2C  RSRL  3 C 2SH I F T0  3 

1 36  DRTR0 , 0, 0 , 96 , 240 , 30 , 240 , 80 

lll 

140  DATA30 ,11, 15,13,6,3,3, 1 

498  PR I NT " [ HOM 3 [ 3CRSRD 3 £ 20CRSRRD 1 2SHIFT0 3 

150  DftTñ240,224, 160,224, 192, 128, 128, 

[ CRSRD  3 C2CRSRL  3 [ 2SHIFT® ] £ CRSRD 3 [2CRSRL 3 

1 0 

[ 2SHI FT® 3 [ CRSRD 3 £ 2CRSRL  3 C2SH I FT®  3 [ CRSRD 3 

160  DATH1.2, 1,7, 15,  15, 15,8 

[ 2CRSRL 3 [ 2SHI FT®  3 [ CRSRD  3 [ 2CRSPL 3 £ 2SH I FT® ] 

176  DRTR128, 64, 128,224.249,240,240, 1 

[PUR]®" 

499  PRINT “ t HOM 3 [PUR 3 [ 1 2CRSRD3 [ CRSRL 3 

1 80  Dfl  TR23 , 1 5 , 56 , 38 , 92 , 60 , 36 , 7 

P®  ® >1  0 fúta  id  ¡Td  fí  ra  IB  ® fl  1?  f & l^fa  (B  fa  @ fa  1BÍB1B  ihfafé  i k fé  f¿  fé 

1 96  DRTR232 , 246 , 28, 228 , 122,124, 248 , 2 

|B,B|Bfd|B[B|B|d|d" 

24 

505  REM  MOVIMIENTO  ALEATORIO  DE  LAS 

200  PRTB3, 7,7,15,15,31,31,31 

FRUTAS 

210  PRTR224,  288,  136,  4, 36  ■ 36, 1 18,  US 

5Ü9  FÜRN=1TÜ3 

220  DATA31,31,31 , 15, 15.-7, 7, 3 

510  R=INT (RNP.Í  1 )#8)+l 

230  DAT  Al  16.'  1 16, 35, 36, 4. t 136,208,224 

526  A(Nj=A 

240  DRTR7 , 9 , 0 , 0 , 2 , ? , 9 , 9 

530  6=<N-1)#7+1 

250  DRTR1 28 , 246 , 206 , 1 28 , 224 ,112,1 84 , 

548  PRI NTTAB (G  > " C5CRSRD3 " 

550  PRINT "CHOM 3" 

360  DRTR13, 15,15, 15,15,7,3, 1 

560  PRINT  TABU3>,AÍ<A> 

370  HRTB248 , 248 , 248 , 248 , 248 , 240, 224 , 

570  P0KE36878 ,15: P0KE36876 , 280 : FORZ= 

192 

1TO10:  NEXT  :■  P0KE36876 , 0 

380  DRTR3 , 57 , 29 , 3 1,27,25, 2l, 25 

571  PRINT" [HOM3E2CRSRL3 " 

390  PATA  1 92 , 156,1 84 ,243,216,152,1 52 , 

572  NEXTN 

152 

600  GETQJ  i I F®IO  " " THEN6 1 7 

400  IIRTR25 , 25 . 25 , 25  ■ 1 25  ■ 33 , 63 , 30 

610  GÜTO509 

410  DATA152, 152, 152, 152,190,  128,0,6 

615  REM  LISTA  DE  PREMIOS 

411  DATA24 , 60,  110,73,223,191 , 137,255 

6 1 7 FORN= 1 TOS  1 

625  I Ffi < 1 > =fi C 2 > ANDA ít>  =ñ < 3 > THENW= 1 5 

4 1 2 DRTA253 • 255 , 223 ,251,1 26 ,110 , 60 , 2 

G 0 T 066 5 

4 

627  IF  H ( 1 )= 7 > AND  ( 7 > =ñ  ( 2 > ANDA  ( 2 > ~ (.  7 ) 

413  DAT R0 , 0 , 0 , 0 . 0 , 0 ,0,0 

AND  í 75= A í 3 J THEHW=20 : 00T0665 

414  DATA0, 0,0, 0,0. ,0,0,0 

629  I Ffl  < 2 ) = a > AND  < 1 >»A  < 3 > T HENOOTO t S 1 

420  REM  VARIABLES  FRUTAS 

0 

425  PRINT" CCLRJ  ■' 

630  I Fñ  < 2 > - 1 2 > AND < 2 ) =8  < 3 ) THENGOTO 1 0 1 

4 30  Aí  í 1 > » 11  [ CRSRD  ] C 2CRSRR  ] [ GRN  ] RE  í CRSRD  ] 

0 

[2CRSRLJCH" 

631  I Ffl ( 2> = < 3 ) AND  < 3 ) =A£  3 > THENGOTO 1 @ 1 

440  R*Í2>*" £ CRSRD] C2CR3RR] CPl IR ] EF [ CRSRD 3 

0 

[2CRSRL3GH" 

450  Rf (.  3 > = " [ CRSRD 3 1 2CR8RR I í PUR ] I J [ CRSRD 1 

632  IFR  í 2>  = ( 4 > AND  í 4 > =R í 3 > THENGOTO 1 @ 1 

0 

C2CRSRL1KL" 

633  IFFK  1 > = (7>ANr<7>^ñ<3>THENi4=4  ¡ 00T 

460  m (.  4>  = 11  [ CRSRD  ] £ 2CRSRR I [ CVN3MN  [ CRSRD  ] 

0680 

C2CRSRU0P" 

634  IFfií 1 )= C 6 > AND  < 6 ) =fi ( 3 > THENW=4 : GOT 

470  ñ$<5>=" [CRSRD3 [ 2CRSRR ] [QRN3QRE CRSRD] 

0680 

[2CRSRL33T" 

635  IFA C1 >= ( 5 > AND í 5)=fl ( 3 > THEHH=4 ¡ GOT 

486  flíí 6>=“  [CRSRD 3 [ 2CRSR.R ] [RED3UVE CRSRD] 

0680 

[2CRSRL3UX" 

636  IFR (1  >= C 8) AND C 8>=R < 3 THEHU=4  : GOT 

496  A*<  7 > = ''  [CRSRD ] C2CRSRR ] CBLK ] V2CCRSRD3 

O680 

1 2CRSRL ] [ £ " 

637  IFA C1  3 = (5>fiND[5>=A(2>THEHlJ=7 : GOT 

491  fifí  8 ) = 11  [ CRSRD  3 C 2CRSRR  3 [ VEL  3 C SPC  3 

0680 

3 1 CRSRD ] [ 2CRSRL  3 CSPC ] f " ¡ 

► 

638  I FR  a ) = < 6 > AND  C6>=fl ( 2 > THENW»7 : GOT 
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LISTA  DE  PROGRAMAS  PARA  SU  COMMODORE  64 

MANUALES  EN  CASTELLANO 


Programas  de  aplicación 

Superbase  64 

Base  de  datos  It 
Bus  ¡cale 

Control  de  almacén 

Mailing 

Lápiz  óptico 

Monitor  código  máquina 
Desensamhledor 


disco 

disco 

cinta 

disco 

cinta 

disco 

disco 

d t so  o 
cinta 

disco 

cinta 

cinta 


22  500  Pts 

5.000  Pts. 

4.000  Pts. 

8.500  Pts. 
8 000  Pts 

35  000  Pts. 

8.000  Pts. 

1 4 000  Pts 
I 3 500  Pts. 

6 500  Pts 
6 000  Pts 

2.000  Pts 


Progra nras  de  utilidades 

Extensión  de  basic 

Música  64 

Gráficos  64 

Velosak 

Tagsort 

Arrow 

Compactar 

Superbasic 


Programas  de  juegos 

Palillos 

CakE  ns 

Aterrizaje 

Comecocos 

Kmcf  Kong 

Laberinto 

Comando  espacia I 


Batalla  espacial 
Precio  por  cinta 
Precio  en  disco 
Ajedrez  en  cinta 

en  disco 
Ja  rama  84 
Camellos 


2 000  Pts 
2 500  Pts. 
4 000  Pts 
4 500  pts 


Araña  lunar 
Defensa  lunar 
El  layo  de  los 
tiburones 
El  hortelano 
La  bruja 

Guerra  de  zi lories 


SOFTWARE  PROFESIONAL 


Arde  ni  a ns,  24 


Teléf.:  256  77  94. 
Télex  42222  CICI  E 


Madrid-28 


cartucho 

2 5 000 

Pts 

da  seo 

5 000 

Pts 

cinta 

4 000 

Pts 

disco 

8 000 

Pts 

cinta 

7 500 

Pts 

cinta 

2 000 

Pts 

cinta 

2 000 

Pts 

cartucho 

1 2.000 

Pts 

c i nta 

3.000 

Pts 

drsco 

7.500 

Pts 

cinta 

6.900 

Pts 

BOLETIN  DE  PEDIDO 

A ,=j  SAK AT1t  S-  A-  A • ifr-rr,H ns  74  WADHiD  ?H 


Reí 


C dad 


Precio 


total 


;.l  ¡ 

I r*- , i 


'0  1 

- - _ 
L_l i . 

t ÍMT  y:;-  - V.4 

p"n^-"r  . 


-J — r*  — 

_L  


J. i.  —1—4. 

-i  14-41 

i 1 I 4 J. 


0680 

639  IFRÍ 1 ) = <7)RNIK7) 
0680 

640  IFRÍ 1 )“<8>RNIK8> 
0680 

641  IFñí  1 )=<  i >RNBí  1 > 
0680 

642  IFFK  1 ) = <2>ñNDC2; 
0680 

643  IFRÍ  1 > = í 4-'ÑNBÍ  4) 
0680 

644  IFfl<l>  = í3)ñNI]C3> 
0680 

645  IFflí  1 )*(7)HND<7> 
THENN-15 : G0T0665 

646  IFfl<l)s<l)flND<í> 
THENW=15 ^0010665 

647  IFRa>  = (2>RHH<2) 
THENkí- 1 5 : GÜTÜ665 

648  IFñí ! )=(4>RNIK4) 
THENW^ 1 5 : GOTO 665 
643  IFRÍ1)  = Í5>RNIK5> 
THENW-15: G0T0665 
658  IFR<Í>  = a>RNri<l> 
0680 

651  IFRÍ 1 )=(2>RN!K2> 


652  IFFKl>-<3>flND<3) 
0680 

653  IFRÍ 1 > = í 4)fiNBÍ 4) 


=R  í 2 > THENN=7 : GOT 
=R  < 2 ) THENW=? : GÜT 
=R<3)THENW=4  GOT 
=Rí3>THENW-4 : GOT 


=flí  3>THENLf=4  ; GOT 


-RÍ30THEHU=4G0T 

"R í 3 ) HNDfi  < 2 > = í 1 ) 
”R  < 3 > RNER  í 2 ) - í 6 ) 
=R  < 3 ) RNEiR  ( 2 > = í 8 > 
=FK3)RNPflí 2)-<3> 
=RÍ 3 )RHDRÍ 2>"í 7> 
=R  í 2 > THENW-7 : GOT 


-RÍ2>THENW~7 : GOT 


=RÍ2>THENW=7 : GOT 
“RÍ2)THENW~7 : GOT 


Centro 


0680 

660  I FR  í 2 > = < 5 ) RNJ0  í 5 ) =R ( 3 j THENGOTG 181 
0 

661  I Fñ  í 2 > = í 6 ) R WD < 6 > =R í 3 ) T HEMGOTO 1 8 1 
0 

662  IFRÍ2)  = <7) RNL < 7 > =ñ í 3 > THENGOTG 1 0 1 
0 

663  I FR  í 2 > - í 8 > RH  ti  ( 8 > =fl  ( 3 > THE  NGOTÜ 1. 8 1 
0 

664  GOTO! 160 - REM  MUSICA 

665  P0KE36878 ' 15  S2-36875 : PR I NT " [ HOM ] 
r RVSON ] C BLK 1 1 1 5CR3RD ] HRS C SPC ] OPTEN I D 
0 C SFC  ] IJN  [ SP C ] PREfí I ODE  : " U 11  PLINTOS " 

666  P0KES2  .■  2 1 7 : FORT  = 1 TO300  NEXT  FOKE 
S2 , 0 : P0KES2 ,213' FORT- 1 TO300  NEXT : POR 
ES2,0:PÜKES2,223 

667  FORT- J.TO300  - HE XI : P0KE32  - 8 ■ RHKES2 
, 227 : FORT- 1 TÜ 150 : NEXT : P0KES2, 8 POKER 
2,234 

688  FORL=1TO1@0*M: NEXT 

638  P0KE36874 , 8 : PGKE 36875, 8 ' P0KE3S87 

6, 8 ■ FORL=1TO40 : NEXT : NEXT 

69 1 P0KE36878 , 1 5 = FÜRL=202TO23SSTEP , 8 
P0KE36876, L í NEXT ■ PGKE36876 , 0 - FÜRL= 1 

T018-HE XT 

692  FÜRL= 1 55T0228STEP2 i P0KE3S8?6,L : N 
EXT : FÜRL=228TÜ 1 35STEP-2 : PÜKE36&76,L : 
NEXT ■ P0KE36876 , O 

635  REM  RVRMCE 
1005  GOTO 11 68 
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671  FORT* 1 TO3O0  NEXT  PDKES2 • 0 P0KES2 
,21?:  FORT  - 1 70300 : NEXT  = P0KES2  , fi  : PQk  ES 
2.,  213 

672  FORT = 1 TO400 - HEXT : P0KES2 . 0 

673  P0KES2  <21 7 FORT= 1 TO30S : NEXT = pnKE 
S2, 0 : P0KE52, 21 3 : FORT=1TO300 : NEXT : POK 
ES2j  0 ■ P0KES2,  223 

674  FORT= 1 TO300 : NEXT : P0KES2 . 0 - PQKE82 
, 227  ■ FORT=  1 TO 1 50  NEXT  P0KES2 ..  0 ; POKEF 
2 , 234 

675  FORT= 1 T0158 ■ NEXT : P0KES2 , 0 : PQKES2 
■<  230  r FORT=1TO300  NEXT  ' P0KES2,  0 : POKES 
2,  227 

676  FORT=1TO150 : NEXT : P0KES2 . 0:POKES2 
t 234 : FORT = 1 TO 1 50 : NEXT : P0KES2 , 0 : POKES 


2 , 230 


677  FORT  = i TO300 ■ NEXT  P0KES2 , @ P0KES2 
, 223 ■ FORT=1TO3O0 ■ HEXT : P0KES2, 0 ■ POKES 

2,227 

678  FORT=1TO380 : NEXT • P0KES2 • 0 P0KES2 
217  ■ F0RT=1  TO300 : NEXT  • P0KES2 . ñ : POKES 

2,213 

679  FORT  = 1 TO40O  NEXT  P0KES2 . 0 : P0KE36 
875, O : P0KE36878 , 0 : GOTO 1 @05 

680  P0KE36878 ,15:  52=36874  F'R  I NT  " [ HOM  ] 
í RVSON J C EL.K  1 [ 1 5CRSRD  ] HRSCSPC  ] OPTEN  I D 

O C SPC ] UN C SPC  3 PREM I O C SPC  3 DE : " W " PUNTOS 

M 

681  P0KES2 , 225 : FORT = 1 TO280 : NEXT : POKE 
S2 0 : P0KES2 , 232 : F0RT=1  TO206  ■ NEXT  • POK 
ES2 , 0 : PQKES2, 237 

682  FORT= 1 TO200 : HEXT  POK  ES2 . ñ : POK ES 2 
, 240 : FORT = 1 TO300 : NEXT : P0KES2 , 0 : POK ES 
2 , 237 

683  FORT=1TO200 : NEXT : P0KES2 • 0 • P0KES2 
, 240 ■ FORT = 1 TO350  = HEXT ■ P0KES2 . ñ 

688  P0KE36878 ,15  FGRM= 1 T08STEP7 : POKE 

36876 , 2 1 0 ' P0KE36875 , 2 1 @ = P0KE36874 , 2 1 
0 


1010  PR I NT " t HOM  3 [ P V SON ] [ BL  K 3 C 1 SCRSRL 3 

1 7CRSRR 3 AVANCE [ CRSRD 3 [ SCRSRL  3 PULSE [ SPC  3 
SPACE " 

1011  GETQí : I FQÍ = " " THEN 1 0 1 0 
1015  IFQt="N" THEN 1047 

1020  ^0$=" [ SPC  3 "THENGOSUB 1 110: G0TD1 
040 

1021  GOTO 10 10 

1 040  PRINTTBB< (N-l  >*7+1  > "CSFT :] 11 

1046  GOTO i 049 

1047  PRIWTTfiBÍ  (N-l  >*7+1  VE  SPC] 11 
1049  NEXTN 

INKRNDC 1 >*S>  + 1 
1128  fi  í N > 

1139  PRINTTRB<<N-l>*7+iríM 

1 1 40  PR  I H T 14  C HOn  ] [ 4CRSRD  3 í CRSRP  3 " : TflB 
CíN-l  )#^ílfií(ñ) 

1145  PRINT" [H0M3 M 

1150  IFRC  1 ; -fl ( 2 > RHDR  ( 2 > -fl  < 3 > THEN W- 1 5 
: G0T0665 

1155  EEM  MENSftJE 

1160  FÜRT=1TO2000 : NEXT 

1161  PR IMT M [ CLR 3 [ RVSON 3 [ 2CRSPR 3 1 8CPSRD 3 
í EL.K  3 S I OUE  C SPC  3 JUGRNBO? 11 

1 1 62  PR I NT" C HOM 3 [ RVSON 3 C 1 0CRSRD ] [ 2CRSRR 3 
CPUR 3 S I = [ BLK3PULSE [ SPC 3 ÜNH [ SPC  3 TECLR 


1 1 63  FORT=  1 T O 2000  NEXT  : PR  I HT 11  [ HOM  3 í RVSON  3 
[ 2CRSRR 3 [ 1 4CRSR E 3 [ POR 3 N0“ C BLK 3 RPPGfi C SPC 3 
V í SPC  3 VñM O NOS 1 1 

1169  GETQÍ : IFQ$=ni,THEN1163 

1170  RUN 

668  FORT- 1T0 150  : NEXT  ■ P0KES2 ,<  O : P0KES2 
7 230  = FÜRT=1 TO3S0 : HEXT : P0KES2j 0 ‘ POKES 

2. 227 

669  FORT = 1 TO 1 50 : NEXT  P0KE32 - 0 : P0KES2 
..  234  ■ FORT=1TO150  : NEXT  - P0KES2, 0 : POKES 

230 

670  FORT- 1 TO300 ■ NEXT ■ P0KES2 , O : P0KES2 
, 223  r FORT= 1 TO30O : NEXT  r POKES 2 , 0 ■ POKES 

2.227 


es  bastante  útil  pues  a pesar  de  que  todos 
utilizamos  la  buena  láctica  de  dejar  espa- 
eios  de  separación  entre  lineas  que  consi- 
deramos suficientes,  ai  final  el  programa 
crece  y crece  y se  nos  desborda.  Espero 
poder  enviar  pronto  las  sentencias  que  nos 
permitan  remunerar  los  GOTO,  etc.,  o si 
alguno  io  ha  conseguido,  ánimo  y envía  tu 
programa  a la  revista,  nos  podemos  ayu- 
dar y beneficiarnos  entre  todos  intercam- 
biando nuestras  experiencias. 

Va  sólo  un  pequeño  comentario  sobre 


s una  pequeña  subrutma  renumera- 
dora que  considero  muy  práctica  a 
pesar  de  tener  el  inconveniente  de  no 
renumerar  la  nueva  dirección  que  loman 
GOTO,  GOSUB  o THEN,  de  todas  for- 
mas es  muy  útil  en  la  mayoría  de  los  casos 


y siempre  podemos  señalizarnos  los  saltos 
con  una  sentencia  REM.  El  programita  se 
puede  cargar  al  principio  o sobre  la  mar- 
cha, ya  que  es  lo  basLante  corto  para  que 
nadie  se  aburra  tecleando, 

A pesar  del  inconveniente  indicado  creo 


Querido»  amigos:  Os  adjunto  un  pequeño 
programa  que  no  dudo  tendrá  buena  acogida  entre 

los  muchos  aficionados* 


064 
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el  programa,  la  Base  en  este  caso  corres- 
ponde a la  dirección  de  comienzo  del  basic 
del  C-64,  deberéis  hacer  el  cambio  opor- 
tuno para  el  V1C-20.  El  tamaño  de  la 
Mame  esta  relacionado  con  la  cantidad  de 
sentencias  del  programa  y la  separación 
entre  ellas.  En  la  línea  63970  imprimimos 
en  pantalla  la  linca  original  y su  corres- 
pondiente nueva,  podemos  eliminar  la 
parte  de  variables  a imprimir  si  queremos 
más  rapidez  aunque  os  aseguro  que  no  es 
nada  lento. 

Hasta  pronto. 


Parque  Vosa,  3-4“  C 


* Ce  "fe"  <fc  £¡í  «CU 

t fl«'lo  yes¿'^n  K ** 

* E°¿Z'0°Í  n'n'< 


° diferid*  rane 

*»* 

S m»njy • 4 


ev»  <fc>m 

‘Vo  te¡éfr 
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N,  de  la  R.:  Los  otros  programas  que  nos  has  enviado,  serán  publicados  en 
números  sucesivos. 


i a F RJN'T " tCLR  J " 

1 1 G Ü S Ü B 1 0 6 0 - Q OSI  IB  1 0 60 

i 5 PR I HT " C 5CRSRR  i í 6CRSRD  3 ,J 

20  PR  IHT " [ RV30H  ] 1 - PREGUNTA  í RVSÜFF  ] " 

24  FüR2“ÍTO100ñ:NE;>ÍI 

25  PR1HTM [CLP  3 " 

30  PP  [ N T ¡ PR  I HT 1 1:1  í PVSOH 3 FUGA  í BPC  3 DE  [ SPC 1 
CüRDROBCRVBüFF]" 

40  PR f HT  PR I HT "RETI PANDO [ SPC 3 HE [ SPC 3 
LA  r: SPC 3 F IGLM'  SPC  J RFf C SPC  ] si. IPER I OR  [ SPC ] 
SOLO" 

50  PR I N T " DOS E SPC 3 PRL I L LOS , LOS t SPC ] CU 
- í ?SPC  3 RTRO  C SPC ] CUADROSE  SPC  II SE í SPC  3 C 
UN- [ 2 3 PC J V t EPTENC SPC J EN [ SPC 3 DOS " 

60  PR I NT  PR I NT " -RARA f SPC 3 EL IHT NftR [ SPC 3 
UN [ SPC  J PRL  I [ SPC ] LL.OC SPC 3 PULSO C SPC 3 LR 
í SPC:  3 LETRRC  4SPC  3 CORPESPÜND  í ENTE  C SPC  3 
HAST RE  SPC  3 LA  E SPC  3 L 

65  PR  1 NT M í SPC  ] < S I GU I ENEO  i SPC  3 El.  t SPC  3 
ABECE- E2SPC  ] DARIO) 11 

70  PR  I NT  "“F'Rfip  í SPC  3 VOLVER  II  SPC  3 RE  SPC  3 
VER [ SPC ] LRC 2SPC 3 F I GURA E SPC 3 1 NUC I Rl_  [ SPC 3 
PULSñE^SPC^e'1 

71  F0RZ=1T 020000 : NEXT 
75  PR  I NT lJ  í CLP  3 L 4CRSRB  3 " 

51  PRINT  : PR  I HT 11  -LOS  C SPC  3 NUMEROSE  SPC:  3 
VANE SPC  3 POR [ 3SPC 3 CñDñCSPC 3 PRL 1LLÜ í SPC 3 
HOP I ZON- [ SPC  3 TALMENTE C SPC ] V [ SPC 3 EN [ SPC ] 
ORDEN" 

82  PRINT " -CUANDO í SPC  3 ESTE  [ SPC ] SEGURO 
[ SPC 3 DE r SPC  31 R [ SPC 3 SOLUC I OH  E SPC 3PULS 
E [ 5SPC 3 SPRCE " 

S3  F0R2= IT 08000  NEXT 

90  GOSUB40O 

91  U=0 

150  PRINT" [CLR3 " 


. ■ í 


• b,' 


1.55  W=W+ 1 

166  F'RINTR*; B$ : PRINTEÍG  J*j I i PRINTC* 

Dí ; PR  I NTF* ; K* ; L*  : PR  I NTG$  ¡ Hí 
163  IFZ$=" CSPC3 "THEN250 

169  IFH=5THEN250 

170  GET'Zf-:  IFZ$="  "THEN1  ?0 

171  IFZÍ="ñ"THEHFiÍ="  C3SPC3 " GOTO  150 

172  IFZÍ="B"THEMB$="[4SPC]"  GOTO 1 50 

173  IFZ$="C"THENE$=" [SPC  1 [ CRSRL H CRSRD] 

[ SPC ] C CRSRL ] C CRSRD 3 í SPC ] " GOTO 1 50 

174  IFZÍ="D“THENJÍ=" [2CRSRU3 C3SPC] [CRSRD] 
C CRSRL ] C SPC ] C CRSRD 3 [ CRSRL 3 1 SPC ] " ■ GOT 

1 1 1 50 

1 75  I FZÍ= "E " THEN I $= ” l 2CRSRU3 t 3SPC 1 C CRSRD 1 
[ CRSRL  ] C SPC:  ] [ CRSRD  ] t CRSRL  ] C SPC  1 11  : GOT 

0 1 50 

í 76  IFZÍ = " F 11  THE.NCÍ = " 1 3SPC  3 " ■ GOTO  1 50 

1 77  1 FZÍ-~ " G " THEND$="  1 4SPC  ] " ■ GOTO  1 50 

1 78  I FZ$=  "H" THENF$=  " C SPC 3 1 CRSRL  1 [ CPSPD .1 
[ SPC ) i CRSRL 1 [ CRSRD 3 l SPC 1 " : GOTO 1 50 

1 79  J FZ$= " 1 "THENKÍ="  C 2CRSRU  3 1 3 SPC  '3  C C RSRD  ] 
[ CRSRL.  .1  [ SPC  3 [ CRSRD .)  [ CRSRL  1 [ SPC  3 " : GOT 
0150 

1 SO  L FZÍ= 11 J " THEI4LÍ-  " L 2CRSRU  3 r 3SPC 1 C C RSRD  1 
C CRSRL  3 L SPC 3 [ CRSRD 3 t CRSRL 1 1 SPC J " GOT 

0 J S0 

í 90  I FZ£=  " K N THEHGf  - " í 3SPC  3 11  : GOTO  1 50 
200  IFZ$”"L"  THENHf  = " E5SPC  3 " GOTO  150 

210  IFZÍ="0"THENGOTO90 
220  GOTO 150 
25Ü  PRINT" C CLP J 11 
260  PP I NT " C 6CRSRD  3 " 

270  PP I NT ,f  [ RVSGN 3 1 -SOL  UC ION E RVSOFF  3 ” 

280  FÜRZ;-  1 TÜ1OO0  • NEXT 
290  PRINT" [CLP]" 


Comienza  con  una  espectacular  presen- 
tación y luego  pasa  a hacer  la  primera 
pregunta.  La  pregunta  ya  dice  lo  que 


Luego  pasa  a hacer  las  siguientes  que  ya 
se  entienden.  Al  f inal  dice  los  puntos  tota- 
les y acaba. 

Si  se  precisa  de  ampliación  Je  memoria, 
cosa  que  yo  no,  se  pueden  poner  muchas 
más  preguntas. 


Ls  muy  sencillo  de  explicar,  consiste  en  que  el  VÍC-20 

está  programado  para  hacer  preguntas. 


debemos  hacer.  La  primera  es  difícil  de 
entender  en  lo  que  dice  de  la  letra  de  cada 
palillo.  Lo  que  dice  es  esto; 


Antonio  Pont  (15  años) 

(Y Mane  y Flaquer,  18,  2^  \í} 
Barcelona 

Teléfono:  203  15  10 

Estudiante  de  F,P.  de  Electrónica 
I.cr  grado,  2W  curso. 


V1C-20 
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78 1 PR I NT "SI C S PC ] QUI ERESE SPC 3 VER C SPC ] 

LR  [ SPC  ] 30“  C SPC  ] C I ON  C SPC  3 PULSR  C SPC  3 0 ri 

790  PR I NT " [ CRSRD  3 [ RVSÜN  ] CON  [ SPC  3 JUNA  [ SPC  j 
PALABRA C SPC  3 BASTA C RVSÜFF  J 11  I HPUT  M SE  1 SPC  ] 
» i Pí 

79 1 I FRÍO " 0 " THENGOTO800 

792  PR I NT " [ CLR ] [ 6CRSPD ] [ RVSÜN  3 3-SOL U 
CIÜNC RVSÜFF] 11 : FORZ”  1 T01 U08 : NEXT  ■ GOTO 
828 

808  I FRÍO " CONGELA " THENGÜTÜ750 
8 1 0 PR  í NT  : PR  I N T 11 Í1UV  í SPC  3 E I EN N : X~X+2U 
: FORZ-1TO8000  NEXT : GOTG850 
820  PRINT"  C CLP  3 [ SPC  ] C 3CRSRD  ] SE  [ SPC ] C 
ÜNGELR " 

838  FORZ= 1 TO8800 ■ NEXT 

850  PRINT" [CLR] [6CRSRD3 [RVSÜN 3 4 -PEE G 

UNTA [ RVSOFF J" 

860  FORZ=lTO1800 : NEXT 

870  PR I NT M [ CLR ] [ 2 CRSRD 3 [ RVSÜN  J EL C SPC  'J 

GUARDARROPAS [ RVSOFF ] " 

830  PR I NT  : PR  1 NT ■' TOCES [ SPC 3 LES [ SPC ] CE 
MISES CSRC] SON [SPC] [CRSRD 3 BLANCAS, MEH 

ose spc] 2,; " 

390  PR I NT " [ CRSRC 1 TOCES í SPC ] SON [ SPi : ] E 
ZUL  E S ¡r  [ 5 SPC  ] [ C RSRD  ] MENOS  [ SPC  ] 2: , 1 ' 

900  PR I NT " [ CRSRC ] TOCES [ SPC ] SON [ SPC ] R 
OSADAS  ' [ 4 SPC  ] [ CRSRD  3 MENOS  [ SPC  J 2 « 11 
9 1 0 PR  I NT 11  [ CRSRC  ] CUENTES  [SPC  3 OEM  I SES 
[SPC3HñV[3SPCKCRSRD]DE[SPC]CECR[SPCCI 
COLOR?" 

920  PRINT" [CRSRD ] RERE [SPC] VER L SPC D LE 
[ SPC  3 SOL  UC I ON  [ SPC  ] PULSE  [ SPC  3 0 " 


;PC  3 [ CRSRDJ 


30 1 Cí=,,t3SPC'  P [ 2CRSPUJ 
LSPC3C CRSRC 1" 

3i0  F'RT N T Ei:  i ES  PPIHTEÍ,  Jí,  II 
HT  PRINTFía:* ¡Lí  FRINTÜf-HÍ 
320  FORÜiü"!  Ti  151000  ■ NEXT 


4 vi  m El  - " CSC  OPIMO]  “ t 4COMM0:i  m 

4 L 0 i:  I » ' 11  [ RVS O N .1  r 3 SPC  3 i RVSOFF  3 H : ] 
\ 4SPi  11  RVSOFF 3 tGüMMH3M 
420  i 4- " ! L'v'SüM  \ í 3SPC  3 [ RVSÜFF  ] " ] 
[4SPC1[RV:,riTF:]|  CÜMMH3 " 

4 ¡O  '■  f ~ " L L HUMO  ; [ CRSPI  3 L CRSRD 3 í Cí 
[i  PSRL.  í [ CRSRD ] [. CÜMMG  1 " 


450  íi£~"  [3C0MMT  ]"  Hí“"  [4ÜUMMT3 
460  ! t - " [ 2 C RSRi  i ] [ SSP[  1 í COMMÜ 3 [ CRSRD 1 
i í R-  Rl  314  OMM03  [CRSRC  I [CRSRL  J[  CÜMMG  3 11 

470  LÍ=I $ 

480  J$- " [ 2CR3RU 1 [ 2 SPC 3 [ SH I FIE 3 [ CRSRD ] 
C CRSRL 3 [ SH I FT B 3 f CRSRC ] C CRSRL 3 [ SH I F TB  3 


490  K$=Jf 
500  RETURN 

550  PR  I NT  " [ CL R 3 C 6CRSRC  3 11 

SEO  PR  I NT " [ RVSÜN  1 2-PREGUNT ñ [ RVSÜFF  3 


570  FORZ= 1 TO 1 080 : NEXT 
550  PR INI" [CLR 3 " 

590  PR I NT " [ RVSÜN 3 EL [ SPC 3 NUMERO l SPC 1 0 


ONESC RVSOFF] M 

600  PR I NT  PR I NT " CUAL  C SPC  3 ES C SPC: ] EL [ SPC  ] 
HUMEROC SPC  3 QUE [ SPC 3 [ CRSRC 1 SE [ SPC ] PUF 
DECSPC3BI VIDIR" 

610  PR I NT " [ CRSRD j EXACTAMENTE [ SPC 3 POR 
[SPC 1 TODOS C SPC ] [ CRSRD  3 LOS [ SPC 3 C I G I TO 
3,  DEL [ SPC  31 C SPC  3 AL  C SPC  3 C CRSRD 3 i SPC  3 9 
, AMBOS C SPC3 INCLUSIVE?" 

61 1 PRINT  : PR  I NT 11 S I [ SPC  3 QU I ERE  [ SPC  3 VE 
R[  SPC ] LE [ SPC ] S0-L2SPC ] LUC I ON [ SPC ] PUL 
SE [SPC 30" 

620  PRINT -PRINT" INPUTN 

621  X=50 

622  IFN-ÜTHEN00T0642 

630  IFN-2520THEN I NPUT " COMO [ SPC  3 LO í SPC 3 
HRSC  SPC3HECHÜ " .>  C$ 

640  I FC  S = H 9*8  *7*5  " THENPP  INI11  ERES  [ SPC  3 
BUEN [SPC 3MATEMAT ICO" ■ X=X+2U : GOTO708 

641  00 T 05 80 

642  PR I NT " [ CLR 3 [ 6CRSRD 3 [ RVSÜN 3 2-SOLU 
C ION [RVSOFF 3* 

643  FORZ=  1 TO  1 000  NEXT  ' PR  I NT 11  í CLR  3 ES  C SPC  3 
EL [SPC 32520" 

644  PR I NT M E CRSRD 3 PORQUE E SPC  3 ES [ SPC  3 9 

645  FORZ=1TÜ800G : NEXT  ÜOTO720 

659  PR I NT 11  FALLASTE " ■ FGRZ  - 1 TO  1 980  : NEX 
T : COT 0580 

700  F0RZ=1T01 000 : NEXT 
720  PR  I NT 11 C CLR  3 C 6CRSRD  3 " 

730  PRINT" [RVSÜN ] 3- PREGUNTE [ RVSÜFF  3 " 


940  I FUOSTHENPR I NT " MU V [ SPC  3 MAL " F ÜR 

Z=1TO800  NEXT = ÜUTO870 

950  PR  I NT 11  MU 7 [ SPC  J É 3 EN 11  ■ FÜRZ-  1 TO80U0 

■ NEXT : X=X+20 ' OOTU990 

960  PR I NT " CCLR 3 [ 6CRSRD 3 [ RVSÜN ] 4-SOL U 

CIÜNC  RVSOFF  1 ,f 


980  PRINT" C CLR 3 [ 2CRSRD 3 SON [ SPC 3 3 : POP 

QUE [ SPC ] HAV [ SPC 3 UNA [ 3SPC 1 í CRSRD 3 AZUL 

, UNA [ SPC 3 BLANCA CSPC 3 V 1 4 SPC ] L CRSRD 3 UN 
u r cDnonícmci 11 

990  PR I NT " [ CLR 3 [ 5CRSRD 3 HAS! SPC 3 CÜNS I 

ghiho";x; "puntos" 

991  FDRZ-1.T  05000  : NEXT 

1 000  PR I NT " í CLR  3 C 8CPSRD 3 " 

1010  PR I NT " [ SH I FTB ] [ CGMMT 3 [ SPC 3 í SH I FTÜ 3 
[ SPC 1 [ SH I FTG 3 [ SH I FTM J 1 3SPC  I C SH 1 F T V 3 " 


1 020  PR I NT " [CÜMMO  3 [ SH 1 FTC 3 [ SPC 3 [ D iMM+ I 
[ SPC 3 1 SH I F TG 3 [ SPC 1 i SH  J F ÍM  1 1 7 SPC ] ! SH ! f ^ 


1 03Ü  PR I NT " [ SH l FTB ] [ 28PC 3 [ COMM+ ] í SPC 3 
[ SH  I FTG  1 [ 2 SPC  3 i SH  1 FTM  ] [ SPC  .1  L SH  I f-  T H 3 " 


1 040  PP 1 NT " [.  SH  1 F T E 3 [ 2SPC  ] [ CUMM  + .1  [ 
[ SH  I FTG 3 [ 3 3 PC 3 [ SH I FTM  1 [SH IF T H 1 11 

1041  FARZ=i TREGUA  NEXT 

1050  PRINT " [CLR 3 11  GDSUBIUSU  GUSUT 


1070  FÜRL=  t Tul O0 
1075  C”  I NT1:. PNIm:  \ 
1030  PDF E36879 ■ C 


740  FORZ- 1 TO 1 000 : NEXT 
750  PRINT" [CLR3" 

760  PR I NT " C RVSÜN ] EL [ SPC 1 VASOC SPC 3 DE [ SPC ] 
AGÜE [RVSOFF 3" 

770  PRINT  PRINT "COMO CSPC 3 COLOCAR [SPC 3 
BOCA [ 5SFC 3 i CRSRD J ABA J O C SPC 3 UN [ SPC  3 VA 

50  [ SPC ] LLENO [ SPC 3 DE [ SPC 3 [ CRSRD  3 AGUA C SPC  3 

51  M C SPC  3 DERRAMAR  C SPC  3 H I" 

780  PRItlT  " [ CRSRD 3 UNA C SPC  3 GÜ T A 11 


1108  FÜRM-1TÜ10 
1110  NEXf'M  he:<ti 
1 1 Pük  E j 6 y . '£> ..  i 


1130  RETURN 
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Alfreda  Sindin  Valero 

Avda.  Logroño,  42.  Villa  Esther 

\1adrid-¿l 


¡Hola  a todos! 

Me  llamo  Alfredo,  tengo  18  años  y soy 
uno  de  los  más  antiguos  VI C- ¡osos  ele  este 
país,  pues  hace  ya  ano  y medio  que  tengo 

un  VIC-20. 


Os  envío  en  plan  de  colaboración  tres 
programas:  una  utilidad  y dos  juegos,  en 
cinta,  pues  a falla  de  impresora*..  En  fin, 
paso  a describirlos: 

l. — VIC-Memoria;  Este  programa  debe 


ser  usado  con  3a  ampliación  de  16K  (ó  8 
K)r  Consiste  en  una  corta  rutina  en  código 
máquina  que,  por  un  lado,  mueve  ia 
memoria  de  pantalla  a la  posición  7680 
(igual  que  en  un  VI C sin  ampliación),  v 
por  tanto,  coloca  el  inicio  del  BASIC  por 
encima  del  fm  de  pantalla;  quedan  así 
libres  3,5  K de  memoria  (posiciones  4608 
a 7679  b que  estando  libres  de  cualquier 
intrusión  del  Basic,  pueden  ser  utilizados 
para  rutinas  de  código  máquina,  caracte- 
res definidos  por  el  usuario  o pantallas 
alternativas. 

Aconsejo  desensamblar  el  código  máqui- 
na y analizarlo,  pues  puede  ayudarnos  a 
comprender  el  funcionamiento  dd  VIC-20. 


Nota  de  redacción: 

Las  otras  colaboraciones  que  nos  has 
enviado  las  iremos  publicando  en  los 
siguientes  números  de  la  revísta,  si  las 
pusiésemos  todas  juntas  te  dejaríamos  la 
revista  para  tí  solo. 

Gracias  por  tus  colaboraciones  y 
sigue  adelante  con  tus  programas... 


Estimados  amigos: 

En  el  último  ejemplar  de  COMMO- 
DGRE  WORLD,  dejabais  en  manos  de 
vuestros  lectores  el  mandar  algún  pro- 
grama que  trate  de  la  alta  resolución. 
También  en  ei  lü  ejemplar  explicabais  un 
poco  esto;  pues  habiendo  hecho  pruebas, 
me  he  encontrdo  con  unos  resultados  muy 
satisfactorios. 

El  programa  se  realiza  en  un  área  de 
64X64  pixels  ya  que  para  controlar  los 
32384  pixels  de  toda  la  pantalla,  son  nece- 
sarios más  de  los  3,5  kb  que  tiene  el  V1C- 
20  standard. 

Si  no  ¡es  importa  y publicasen  mi  pro- 
grama, les  agradecería  que  publicasen 
este  saludo  a Paco  Canelo,  también  un 
VIC-cioso, 

El  programa  dibujará  la  gráfica  de  un 
seno. 

Para  dibujar  el  gráfico  de  la  llamada 
campana  de  Gauss,  hay  que  sustituir  la 
línea  60  por  la  siguiente: 

60  Y~INT  (32+31*  COSÍ  X/l  Ó)) 

Para  dibujar  una  elipse,  habrá  que  añadir 
estas  líneas: 

55Yl=32+SQR  (64*X-X*X) 

56Y2— 32-SQR  (Ó4*X-X*X) 

60  FQR  Y=Y  1TOY2STEPY2-Y I 
I25NEXT 

A continuación  paso  a describir  el  pro- 
grama: 
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UNE  A COMENTARIO 


5 PASA  A C ARACTERES 
PROGRAMA  HE  TS 

f'  PONE  A CERO  IODOS  LOS  PIXELS 
10  PAÑ  I Al  t A NEGRA  Y BORRAR 
PANTALLA 


4 REM*CÜMMÜlnjRE  WORLD# 

5 P0KE36869,255 

6 F OR  1=716 8T Ü767S1 : P 0R E I , 
NEXT 

1 0 P 0 K E 3 6 3 7 9 , 3 : PE'  1 13 1 C H R í 


VISUALIZAN  LOS  M CARACTERES 
DE  LA  FORMA  8 8 


50  EOR  PARA  LA  COOR  DE- N ADA  X 
00  NOS  DA  LA  COORDENADA  Y 
70  NOS  DA  EL  NUMERO  DEL 

CARACTER  EN  EL  CU  AI  SE  VA 
A ENCENDER  EL  PIXEL 
m NOS  DA  EL  CODIGO  DE 
VISUaLIZACION  [JE:  DICHO 
CARACTER 

£>«)  DOS  DA  El  HYTE  DE  DICHO 

CARACTER  EN  El,  CUAL  SE  VA  A 
ENCENDER  EL  PIXEL 
Í00  NOS  DA  EL  BIT  DE  DICHO  BYTE 
QUE  VA  A SER  ENCENDIDO 
I U)  ENCIENDE  ESE  BIT.  DEN  E RO  DE 
ESE  BY  I"E,  QUE  PERTENECE  A 
DICHO  CARACTER 
120  NI  XI  PARA  EL  FOR  DE  X 
DESPUES,  PULSEN 
STOP/RE  STORE  YA  QUE  LA 
LINEA  130  ES  UN  BUCl  E. 
CERRADO 


Javier  Elusrondo  González- Pinto 
C/  María  Goiri,  3-2-  Deba, 
Algorfa  (Vizcaya) 

(14  añas) 

TeL:  469  64  94 
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Por  Diego  ROMERO 


D Lrei'cion 


Nombro  Fundón 


7 7 C H A R A C B ús  qu  eda  de  ea  r úeter , 

8 8 ENDCHR  Bandera  de  búsqueda 

de  comillas 

9 9 TRMPOS  Columna  de  TAB, 

A 10  VliRCK  Flag.  G=LQAD.  1= 

VERI  F Y 

B II  CGUNT  Puntero  de  entrada  (N" 

de  caracteres), 

C 12  DIMFl-G  Dimensión  por  defecto 

de  mauiz 

D 13  VALTYP  Tipo  de  datos:  FF— 

Stríng,  00— Numérico 

E 14  INTFLG  Tipo  dé  datos:  8Ü=Ln te- 

ros, 0G=C.  Flotante 

F 15  GARBFL  Bandera  múltiple  (comi- 

llas/list/etc.). 

10  16  SUBFl.G  Bandera  subíndice/! un- 

ción (FN) 

11  17  JNPILG  B.  de  entrada  00=TNPU1 

40-GET/98-- READ 

12  18  ATN  S G N ATN / signo/co  ¡n para  re- 

sultado 

13  19  PROMTF  Bandera  de  1/0  actual 

14  20  INTNUM  Número  entero 

15  21  INTNUM  Número  entero 

L6  22  TEMPPT  Puntero  temporal  de 

st  rings 

3 7 23  LAS  FP  l Puntero  último  literal 

19  25  TEMPST  Staek  Temporal  de  lite- 

rales 

22  34  INDEX  Indices  de  utilidad. 

26  38  RESHO  Zona  trabajo  producto 

de  multiplicación 


continuando  en  orden  ascendente 
de  dirección 


— El  byte  de  menor  peso  se  guarda  en  la 
primera  dirección  de  memoria. 

— El  bytc  de  mayor  peso  se  guarda  en  la 
segunda  dirección  de  memoria. 

De  este  modo  están  guardados  los  vec- 
tores de  las  posiciones  que  estamos  estu- 
diando, el  vector  almacenado  en  las  direc- 
ciones 3 y 4 apunta  a la  rutina  que 
convierte  los  números  de  coma  flotante  a 
enteros,  la  parte  menos  significativa  o de 
menor  peso  se  guarda  en  la  posición  3 y la 
más  significativa  en  la  4, 

Las  direcciones  5 y ó apuntan  a la 
rutina  que  convierte  los  enteros  a la  nota- 
ción de  coma  flotante. 


este  mes  nos  encon- 
Eramos  con  las  posiciones  de  memo- 
ria 3,  4,  5 y 6,  que  son  sencillamente  unos 
vectores  que  utiliza  el  intérprete  BASIC 
para  apuntar  a las  direcciones  donde  se 
encuentran  en  la  ROM  las  rutinas  de  con- 
versión de  números  en  notación  de  coma 
ílotame  al  de  enteros  v viceversa, 

■tf 

1 a forma  en  que  se  guardan  estos  vec- 
tores puede  resultar  un  poco  peculiar  para 
aquellos  que  no  estén  familiarizados  con 
el  modo  en  que  la  CPU  guarda  las  direc- 
ciones de  ios  saltos  en  el  modo  de  di  rec- 
etoría miento  Indirecto  Absoluto,  pero  la 
considerarán  lógica  todos  los  que  conoz- 
can los  modos  de  direccionamíento  de 
nuestra  CPU,  Vamos  a explicarla  un 
poco: 

El  sistema  basado  en  las  CPUs  de  la 
serie  6500,  utiliza  un  bus  de  direcciones  de 


En  el  próximo  número  veremos  la  fun- 
ción de  los  punteros  de  principio  y fin  de 
memoria  que  alteramos  en  muchos  pro- 
gramas Basic  para  utilizar  caracteres  per- 
sonalizados y protegerlos  de  la  posible 
destrucción  con  variables  del  programa... 


Sr  i deseamos  alterar  las  rutinas  nor- 
| males  de  conversión  para  utilizar 
~ una  notación  peculiar  nuestra,  debe- 
mos modificar  el  contenido  de  estas  posi- 
ciones de  memoria  para  que  apunten  a 
nuestra  rutina  en  código  máquina. 

Las  posiciones  de  memoria  siguientes 
son  una  serie  de  punteros  y registros  de 
almacenamiento  temporales  que  utiliza  el 
intérprete  Basic  para  buscar  caracteres, 
guardar  la  columna  a la  que  apunta  TAB, 
etc.,  v nosotros  no  debemos  alterarlos 

"W 

para  evitar  interferir  el  correcto  funcio- 
namiento del  BASIC,  Incluimos  una  lista 
con  los  nombres  y funciones  de  cada  una 
de  estas  posiciones  de  memoria  en  la 
tabla: 


memoria  números  comprendidos  entre  0 y 

255;  para  almacenar  cifras  mayores  se  ve 
obligado  a partirlas  en  dos  bytcs,  uno  de 
mayor  peso  o bytc  alto  y otro  de  menor 
peso  o bvte  bajo,  con  ellos  puede  manejar 
cifras  entre  0 y 6 5535,  con  lo  que  ya  puede 
apuntar  a cualquiera  de  sus  posiciones  de 
memoria,  pero  para  guardarla  como  un 
vector  debe  colocarla  en  dos  posiciones 
consecutivas  de  memoria  en  un  orden 
lijado  al  diseñar  el  sistema,  que  es  el 
siguiente: 


CENTRO  DE 
INFORMATICA 

Las  Rozas  - Majadahonda 

EMPEZAMOS 
Cursillos  en  BASIC 

cada  15  días 

Vi*  1 • i *^1*  ¡ «i*  "i  ii  * ' *i  1 •pPí;.lp.,4l*  -Y 

Directamente  en  ordenadores 
ViC-20,  COMMODORE  64 
SPECTRAVIDEO 

Tino.:  637  31  51 


Ln  el  Vlt  y el  C-64  los  vectores  son  normalmente 


C.  Flot.  a enteros  Enteros  a C.  Flot 

$1)1  AA  SD391 

$B1AA  SB391 
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La  MAGIA  son  t rucos,  la  MAGIA 
es  divertida. 

La  MAGIA  es  hacer  lo  que  na  tile  se 
ha  atrevido. 

La  M A GIA  es  una  columna  mensual 
llena  de  consejos,  trucos r de  esto  y 
aquello  del  mundo  del  softw  are,  hard- 
ware y aplicaciones. 

Cada  mes , MAGIA  les  trae  trucos 
breves  y útiles  de  informática  proce- 
dentes de  todo  el  mundo  - trucos  des- 
cubiertos por  los  demás  que  hacen  que 
la  informática  sea  más  fácil  más 
divertida  o más  animada, 

MA  GIA  habla  de  ideas  sencillas, 
programas  de  una  sola  linea,  subruti- 
nas útiles H hechos  de  Informática  poco 
conocidos  v otras  cosas  de  interés. 

ha 

Buscamos  material  nuevo  o renovado 
que  resulta  ser  de  valor  actual  para 
usuarios  de  equipos  Comm adore  y que 
puede  utilizarse  con  un  mínimo  de. 
tiempo , esfuerzo  o conocimientos  teó- 
ricos, 

MAGIA  resulta  ser  la  fuente  más 
completa  de  información  para  la 
informática  práctica,  además  de  ser  un 
foro  internacional  para  compartir  tru- 
cos con  otros  aficionados.  Envié  sus 
trucos  a: 

COMM  ODORE  WORLD 
Pedro  Muguruza,  4 
Madrid- 16 

La  revista  " Commodore  World'*  sor- 
teará sets  paquetes  de  software  en  julio 
y diciembre  entre  todas  las  contribu- 
ciones publicadas , 


LISTADO  EN  COLORES 

Conecte  el  VIC  y prepare  la  siguiente  línea: 

10  REM  “MfCTRL  RED]*11 

Pulse  RETURN.  Llévese  el  cursor  sobre  ía  letra  M y Pulse 
[CTRL  RYS0N]  y a continuación  [SHIFT  M], 

Pulse  RE/1  URN  de  nuevo,  y donde  había  M deberá  aparecer 
ahora  una  barra  diagonal  en  reversa, 

reclee  unas  líneas  cualesquiera  (20  PR1NT,„  30  REM...  etc).  Pida 
LIST  y se  listará,  si  todo  ha  ido  bien,  en  el  color  que  hubiera 
colocado  en  el  REM  de  la  linca  10. 

Colocar  una  línea  asi  al  principio  de  cualquier  programa,  provo- 
cará el  listado  en  e]  color  que  se  desee.  Si  el  color  elegido  es  el 
mismo  tic!  fondo,  logrará  el  listado  invisible. 

Además  todos  los  caracteres  de  control  en  vídeo  inverso  que  se  pue- 
den obtener  desde  el  teclado,  [HOME],  |CLR],  [CRSRS],  etc,  fun- 
cionarán con  este  Procedimiento  al  hacer  un  listado  por  pantalla. 

Frúncese  Castanyer  P. 

C/  Que  re  taño,  3,  E - Tt  D 
Palma  de  Mallorca,  7 
Baleares 

* • • 

VIC-20 

Este  es  un  truco  muy  sencillo,  pero  que  en  ocasiones  no  deja  de 
tener  su  importancia,  ahí  va. 

Si  quieres  evitar  el  acceso  de  los  demás  a tus  programas  y que 
sólo  puedan  ser  utilizadas  por  personas  allegadas,  te  aconsejo  colo- 
car como  primera  línea: 

1Ü  POKE  775,  200:  LNPUT  “DAME  CLAVE”;  CS:  IFC$  <>  D$ 
THEN  ó 3 999 


(siendo  D$  cualquier  clave  que  introduzcas). 

Y pon  como  última  línea; 

63999  PRÍNT  “LO  SIENTO,  OTRA  VEZ  SERA”:  SYS  64802. 

En  la  línea  10,  el  POKE  7 55,  200  es  para  impedir  el  listado  del 
programa  y asi  poner  a salvo  tu  clave.  La  línea  muestra  el  rótulo 
entre  comillas  y después  simula  la  desconexión  de  tu  VIC  (ante  el 
asombro  del  intruso). 

Si  quieres,  en  vez  de  una  clave,  entra  un  nombre  pero  si  es 
compuesto  o una  abreviación  del  mismo  como  por  ejemplo  JAV1/ 

JAVIER  O JOSE  MARI/ JOSE  MARIA  debes  sustituir  en  la  línea 
10;  10  POKE  755,  200:  INPUT  "DAME  TU  NOMBRE”-  C$‘ 
LEFTS  (CS,  4)  O D$  THEN  63999 
(siendo  D$=JAVJ), 

Por  que  por  una  letra  más  podrías  tener  que  volver  a cargar  de 
nuevo  el  programa  y eso  no  es  agradable, 

i Ah!  y por  último,  una  vez  que  esté  ejecutando  el  programa  vigila 

que  no  llegue  a la  linea  63999  (puedes  colocar  un  END  en  la  línea 
anterior). 

No  es  egoísmo,  simplemente  un  derecho,  GRACIAS, 

José  Maria  Rodríguez 
Plaza  del  Puente f 7-4Q  deha , 

Las  A renas 

Pizca  ya. 

• t • 

"QUITAR  PROTECCIONES” 

A]  comprar  cintas  ya  programadas,  puede  que  el  comprador 
quiera  estudiar  dicho  programa  además  de  ejecutarlo;  pero  al 
mandar  al  ordenador  listarlo,  nos  encontramos  con  algún  error 
de  este  tipo:  (Las  cifras  e instrucciones  pueden  variar). 
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Ejemplo  1: 

LTST 

10SYS9876:  REM 
SYNTAX 
ERROR 
READY 

Esto  lo  solucionamos  de  este  modo;  Tecleamos 
Ejemplo  I: 


10  REM 
SYNTAX 
ERROR 
READY 


pantalla  índica;  6519  B\TES  EREE,  lo  que  puede  comprobarse 
por  el  contenido  de  las  localizaciones  55  y 56  que  son  tos  valores 
120  y 29,  respectivamente.  Es  decir,  faltan  136  bytcs,  que  son  los 
"■secuestrados"* 

Pero  existe  una  forma  de  hacer  desaparecer  toda  la  influencia 
del  cartucho,  quedándose  únicamente  con  los  3K  de  RAM 
adicional. 

Para  ello  escribir  sencillamente: 

POKE  256,120:  POKE  257,76:  POKE  258.47:  POKE  259,253: 
SYS  256, 

en  forma  directa,  o con  un  n Limero  de  línea. 

Cuando  esta  orden  se  ejecuta  aparecerá  el  mensaje; 

6655  BYTES  EREE 

¡Ya  están  todos!  Puede  comprobarse  que  las  localizaciones  55  y 
56  contienen  ahora  los  valores  0 y 30  respectivamente. 

Hay  que  tener  en  cuenta  que  esta  orden  borra  lodo  lo  que 
existiese  previamente  en  la  memoria,  así  que  es  mejor  hacerlo 
antes  de  comenzar  a programar. 

¿Magia?,  bien  nada  es  mágico  si  se  conoce  por  qué  funciona. 
Atentamente. 

Luis  Suárez  Antuña 
C/ Natividad,  2,  4- 
Akalá  de  Henares , 

¡Cuidado!  con  este  truco  Jas  tedas  de  función 


Ejemplo  2 

10 

LIST 


LIST 

Una  vez  realizado  esto  nos  aparecerá  el  listado 

Javier  Elustondo  Giez-Pinto. 

C/María  Goiri , S-2U  deha , 

Algor  tu  ( Vizcaya ).  Teléf. ; 469  64  94 
Edad;  !3  anos. 


CONTROL  DE  PANTALLA 

Amigos  de  Commodore: 

Os  envió  estas  líneas  esperando  que  aparezcan  en  vuestra  sec- 
ción de  MAGIA,  Se  trata  de  unos  POKES  que  pueden  resultar 
interesantes  (Para  VIC-20). 

EJ  primero  de  ellos  es  el  646,  cuya  función  es  la  de  cambiar  el 
color  del  cursor.  Las  posiciones  de  memoria  correspondientes  a 
cada  color  son  una  unidad  menor  que  el  número  que  aparece 
encima  de  cada  color  dei  cursor  en  el  teclado,  es  decir;  0 para  el 
negro;  I para  el  blanco;  2 para  el  rojo;  etc,*. 

El  segundo  POKE  está  en  la  dirección  de  memoria  656.  Este 
POKE,  en  la  posición  de  memoria  128,  vuelve  la  pantalla  a su 
estado  inicial. 

Otro  es  ei  36885,  siendo  una  de  sus  funciones  la  de  pasar  a 
mayúsculas  (240)  o a minúsculas  (posición  242), 

Los  siguientes  POKES  están  relacionados  con  la  posición  de  la 
pantalla  en  el  marco.  El  36864  controla  la  posición  horizontal,  y 
el  36865,  la  vertical,  siendo  sus  estados  normales  las  posiciones  de 
memoria  12  y 38  respectivamente. 

Los  POKES  36866  y 36867  controlan  el  tamaño  horizontal  y 
vertical  de  la  pantalla.  Sus  posiciones  normales  son  las  12  y 46 
respectivamente. 

Leandro  Olalla  Martínez 
Eugenio  Selles  J,  5ÚB  (Pedregalejo) 


va  no  funcionan*,.!!! 


PAUSAS  EN  PROGRAMAS 
Hola  amigos  de  Commodore  World: 

Os  envío  un  truco  para  la  sección  de  Magia  sobre  el  VIC-20.  Si 
queremos  que  un  programa  se  pare  hasta  que  una  determinada 
tecla  sea  pulsada  nosotros  solemos  escribir: 

10  GET  AS;  IF  A$<>“X"  THENI  10 
Esto  lo  podemos  hacer  ocupando  menos  memoria  escribiendo- 

10  WAIT  197,  N 

Donde  N es  específico  de  cada  tecla  “X".  Para  saber  que  N 
corresponde  a cada  tecla,  podemos  utilizar  este  corto  programa: 

20  PRINT  “[Home]"  PEER  (197);  GOTO  20 
Un  RUN-20,  lo  hace  correr  y al  mantener  pulsada  la  tecla 
deseada,  aparecerá  en  la  esquina  superior  izquierda,  el  número 
correspondiente  a esa  tecla  (mientras  se  mantenga  pulsada). 

Ej.:  10  WAIT  197,15 

Espera  a que  se  pulse  la  tecla  RETURN* 

Aquí  os  doy  algunos  valores; 

SPACE  ,.....*  32  A 17  C 34 

RETURN  15  B 35  = 46,  etc. 

Me  despido  ya  de  vosotros  no  sin  antes  felicitaros  por  el  nivel  y 
calidad  de  la  revista,  superior  a otras  que  acaban  de  aparecer 
sobre  los  Commodore. 

Miguel  Angel  Folgado  Costa 

Ávda * Blasco  Iháñez , 29-1- 

Apartado  Correos,  19 . M anises  (Valencia) 


FACILITANDO  LA  EDICION 

La  magia  trata  sobre  la  utilización  de  la  tecla  (CTRL)*  que 
pulsada  a la  vez  con  otra  tecla  es  equivalente  a,  por  ejemplo, 
mover  el  cursor  hacia  abajo.  Cuando  pulsamos  (CRSRD)  entre 
comillas,  vemos  que  nos  escribe  una  "Q";  pues  bien, 
(CTRL)  I “Q"  es  equivalente  a (CRSRD),  l os  resultados  que  se 
pueden  obtener  con  esta  tecla  son: 

(CTRL)T“£”  (CTRL)+“3" 

(CTRL)+“'Q”  (CRSRD) 

(CTRL)T“E"  (CTRL)+“2" 

fCTRL)+“R"  * (CTRL)+“9" 

(CTRL)+“T"  (DEL) 

ÍCTRL)+"  " (CTRL)+“6" 

(CTRL)T“S"  (HOME) 

(CTRL)+“;"  _**...  (CRSRR) 

{CTRL  )+“=’" {CTRL)+“7" 

(CTR L)+“N" (COMM)-KSHIFT)  Sólo  pasa  a minúsculas. 

ÍCTRL)+“¡vr  (RETURN) 

(CTRL)T"N",  cuando  queramos  pasar  a mayúsculas,  hay 
veces  que  no  se  puede  hacer  con  (CQMM)-r(SH  I FT);  lo  podemos 
hacer  con  el  CHR$  correspondiente.  (CTRL)  además  nos  escribe 
todas  las  letras  en  carácter  inverso  cuando  escribimos  entre 
comillas* 

Y esto  es  Lodo.  Si  os  parece  que  está  mal  redactado  en  alguna 
parle  o lo  queréis  resumir,  no  tenéis  más  que  cambiar  lo  que 
creáis  conveniente. 

José  Luis  A rosfegui  Plaza 
Almona  del  Boquerón,  15 


AUTOR  RE  PETICION 

Soy  un  lector  de  vuestra  revista,  y poseedor  de  un  CBM  2001  v 
un  Commodore  64,  Me  solidarizo  con  lo  que  dijo  Armenio  Gon- 
zález Pérez  en  la  sección  C ARTA  BLANCA  en  el  número  3 de 
abril,  en  relación  a los  usuarios  de  los  primeros  aparatos  Com- 
modore* Os  envió  esta  pequeña  rutina,  que  corre  sólo  en  los 
ordenadores  2000  y 3000  con  el  BASIC  2,  v que  proporciona 
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Como  prometimos  en  el  número 
anterior  hemos  estudiado  más  dete- 
nidamente los  libros  franceses  sobre 
los  PET/CBM. 

F,l  más  elemental  de  ellos  es  "La 
decüu verle  Ju  PE  F/CHM*\  es  una 
toma  de  con  Laclo  con  los  ordena- 
dores, sus  instrucciones  y coman- 
dos elementales,  las  bases  de  la 
programación,,  desarrollo  de  pro- 
gramas, obtención  de  grá íleos  y 
dibujos  animados,  y comunicación 
del  PET  con  el  mundo  exterior.  En 
los  apéndices  det  libro  encontramos 


tablas  de  las  funciones  y operadores 
BASIC,  seguidos  de  un  conjunto  de 
ejercicios  de  programación  v sus 
soluciones  respectivas. 

La  practique  du  PET/CBM,  esta 
dividido  en  dos  volúmenes*  el  pri- 
mero dedicado  a describir  los  peri- 
féricos y 3a  gestión  de  ficheros,  y el 
segundo  al  lenguaje  máquina  y 
ensamblador  del  6502, 

El  primero  detalla  el  almacena- 
miento de  programas  v datos  en  e! 
casete  de  commodore,  la  utilización 
de  la  impresora  para  usos  normales 


(texto)  y gráficos,  la  unidad  de 
disco  CBM  3040,  su  manejo,  ges- 
tión de  bases  de  datos  v ei  bus  IEEE 
448. 

El  segundo  volumen  es  un  análi- 
sis y descripción  exhaustiva  de  la 
programación  en  lenguaje  máquina, 
el  editor,  ensamblador  y rutinas  úti- 
les del  PET.  Uno  de  los  capítulos 
muestra  d modo  de  intercambiar 
parámetros  entre  BASIC  y código 
máquina  por  medio  de  las  funcio- 
nes SYS  y USR, 

ES  último  de  dios,  “Ciéis  pour  ie 

PET/CBM’\  es  una  guía  rápida  de 
tablas  de  utilidad,  comandos,  carac- 


teres, mensajes  de  error,  lenguaje 
máquina,  patillajes  de  los  conecto 
res  y circuitos  integrados  utilizados, 
mapa  de  memoria  y trucos  simila- 
res a los  de  9a  sección  "Magia'1  de 
nuestra  revista. 

Todos  los  libros  llevan  ejemplos 
sencillos  de  rutinas  en  cada  uno  de 
los  temas  tratados,  y pese  a estar 
escritos  en  francés  se  puede  enten- 
der su  significado  sin  saber  este 
idioma. 

Los  precios  aparecieron  en  ei 
número  anterior  de  nuestra  revista, 
y los  distribuye  P.S.I.  Ibérica, 
Fcrraz,  M-3,  Madrid-8,  teléfono: 
(91)  247  30  00, 
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Este  libro  es  una  guia  completa  sobre  d bus  de  comunicaciones  IEEE  448  utilizado  en  Jos  ordenadores 
pe  rst  mal  es  P ÉT/C  RM . 

En  los  primeros  capítulos  da  una  serie  de  conceptos  sobre  comunicaciones  entre  ordenadores  y 
periféricos.  estrucLura  del  bus,  líneas  de  control  y de  datos,  protocolos  de  intercambio  de  información  con 
diagramas  de  flujo  detallados,  líneas  utilizadas  por  el  IEEE  448  i mpl ementado  en  los  equipos 
C oiti  mo  dore , 

Más  adelante  aparecen  diagramas  de  tiempos  detallados  de  las  señales  al  ejecutar  las  distintas  secuen- 
cias de  transferencia  de  datos  desde  B ASILÓ  esquemas  eléctricos  de  interfaces  para  utilizar  periféricos 
IEEE  de  otras  casas  con  los  equipos  Commodore,  impresoras  Centronics,  etc. 

En  los  últimos  capítulos  presenta  varios  ejemplos  de  control  de  aparatos  por  medio  del  bus  (un 
analizador  lógico,  un  cireuiLo  cerrado  de  televisión,  etc.),  una  lista  de  los  dispositivos  de  distintos  fabri- 
cantes que  pueden  ser  conectados  al  bus,  tablas  y unos  programas  de  utilidad  para  los  PET/CBM. 


t HjT/ &BIH  and  Lhv  lüi:  44tí  bus  (£Vlfí) 
íhitdfées:  Cugem  I-ilIilt  y í;r  W,  J&sfeyt 

iMilovial  Ule . ¡-jmw  l{  ill  - t'.-spam,  Sta,  Beatriz,  -4 
Teléfrmt):  (Qt)  231  ó 2 ÓJ 
. R;  J,2í  X)  pesrías. 


-/íS 


Coma  flotante: 

Notación  utilizada  para 
ordenador  (ej,  27 


con  números  reales  en  un 


Bandera  o indicador.  Bit  de  un  registro  que  indica  una  condi- 
ción determinada.  En  el  caso  de  las  CPU s 6502  y 6510,  son  los 
bits  del  registro  de  estado  que  indican  cuándo  el  resultado  de 
la  operación  anterior  fue  negativo»  mayor  o menor  que  otro, 
decimal  o hexadccimal,  cero,  etc. 


Indices: 

Registros  de  la  CPU  utilizados  para  Jos  modos 
miento  indexado. 

Intérprete  basíc; 

Programa  encargado  de  "interpretar”  los  comandos  y fundo 
nes  de  un  programa  BASIC  v ejecutar  tas  operaciones  corres 
pendientes  a este  comando  o función. 


Modo  de  direccionamiento; 

Técnica  mediante  la  cual  una  instrucción  se  refiere  a su  ope 
raudo.  Los  6502  y 65  10  tienen  13  modos  de  di  rece  ¡o  na  míenlo. 

MSB: 

More  Signifícant  Líyte- - Byte  más 

Notación  entera: 

Es  la  utilización  para  trabajar  con  números  enteros  compren- 
didos entre  32768  y -32767.  Estos  límites  vienen  dados  por  d 
modo  en  que  el  ordenador  almacena  en  su  memoria  los  núme- 
ros enteros  (ocupando  dos  bytes). 


Least  ^igmiicani  Byte — Byte  menos  significativo  de  una 
dirección  o palabra  de  varios  bytes. 


Mném  únicos: 

Códigos  utilizados  para  facilitar  la  programación  en  código 
lenguaje  máquina;  son  abreviaciones  de  palabras  normales  en 
inglés,  lo  que  facilita  su  memorización  y utilización. 
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Por  motivos  de  espacio  nos  es  imposible  incluir  en  este  número  el  listado  de  soft  de  Micro 

electrónica  y Control.  Continuaremos  su  publicación  en  el  próximo  número. 


COPY,  CIRCLE,  PA1NT,  DESICN,  MOB  SET, 
DETECK,  CHECK,  WAVE,  ENVELOPE,  FLASH, 

etcétera. 

Estamos  esperando  que  Microelectrónica  y Control  nos 
envíe  un  cartucho  de  muestra  para  hacerles  una  amplia 
reseña,  va  que  se  trata  de  un  producto  muy  importante. 


Microelectrónica  y Control  nos  ha  comunicado  el 

lanzamiento  del  cartucho  4íSIMON*S  BASIC*’, 
que  añade  114  comandos  Basic  al  C-64. 

Entre  los  más  importantes  se  encuentran:  KEY, 

TRACE,  INSERT,  PLACE,  CENTRE,  PRiENT,  AT, 
FE  í CH,  INKEY,  MOD,  DÍV,  PROC,  ÍF,..THEN.„ELSE, 


PARA 


MEDICO 


Desarrollada  per  Metisistemas  S.A.  (Palma  de  Mallorca) 


Dcscic  principios  ae  este  siglo  ios 
doctores  L.JV1.  Patrizi,  Loewcnthal, 
W.  Moede  y C*  Piorkowski  entre 
otros,  lian  estudiado  la  atención  sostenida 
cu  los  conductores  de  automóviles. 

En  España  los  primeros  estudios  fueron 
llevados  a cabo  en  Barcelona  en  1922  por 
el  doctor  E.  Mira,  quien  realizó  pruebas 
sobre  velocidades  y distancias,  distribu- 
ción, intensidad  y duración  de  la  atención 
visual,  rapidez  y precisión  de  la  reacción 
visual  y grado  y tipo  de  la  emotividad  del 
sujeto.  De  estos  estudios  con  los  conduc- 
tores de  la  compañía  de  autobuses,  dedujo 
que  se  podían  conseguir  resultados  nota- 
bles con  un  examen  corto,  sin  “jugar  con 
la  vida",  siendo  fácil  escoger  ios  mejores 
conductores  v reducir  con  ello  el  número 


Para  este  tipo  de  aplicaciones  han  pre- 
parado programas  para  la  evaluación  de 
aptitudes  psico motrices  en  conductores  y 
para  la  prevención  de  accidentes  laborales. 

Utilizando  ordenadores  personales,  han 
conseguido  máxima  fiabilidad,  menor 
número  de  errores  en  el  manejo  de  resul- 
tados, procesarlos  más  rápidamente  al 
hacerlo  el  propio  programa  y proporcio- 
nar los  resultados  por  la  impresora, 
menor  número  de  averías  que  en  los  sis- 
temas mecánicas  tradicionales,  menor 
coste  v mayor  rapidez  en  la  realización  de 
los  exámenes  al  ahorrar  los  tiempos  muer- 
tos ínter-pruebas. 

Para  solicitar  mayor  información  diri- 
girse a: 


Posteriormente  han  sido  muchos  los  coordinación  bi manual,  y reacciones  mul- 
Joctores  que  se  han  ocupado  de  la  seguri-  tiples  discriminatorias  frente  a estímulos 
dad  vial  en  distintos  países,  y en  nuestro  visuales  o sonidos. 

país,  existe  en  la  actualidad  un  equipo  de  l odos  los  instrumentos  que  han  prepa- 
res personas  que  trabaja  en  este  campo  ratj0  son  <jc  gran  utilidad  para  los  exáme- 

modemizando  los  medios  de  trabajo.  nes  conducir,  y dado  el  nivel  tccnoló- 

— D,  José  M*  Sevilla  Marcos.  Médico  gico  actual  y la  aparición  de  los  ordena- 

Director  del  Centro  de  Reconocimientos  dores  personales  en  el  mercado  nacional, 

Médico- Psicológicos  para  carnets  de  con-  desarrollado  un  sistema  computeri- 
ce^ zado  para  examinar  conductores  basado 

„ , . , . , , _ . , , „ . , en  la  utilización  de  Commodorc  64,  la 

-D  Antonio  de  la  llera  Roldan.  Psico-  unidad  de  disco  0 cassette  y la  impresora. 

logo  de  Centro  de  Reconocimientos 

Médico- Psicológicos  para  carnets  de  con-  Fste  equipo  de  profesionales  ha  diese- 
¿ujir;  y ñado  unos  periféricos  especiales  para  esta 

' „ ...  ..  ,T,  , i,  , aplicación,  son;  Controles  manuales,  pe- 

-D.  Emilio  Medina  Ultavull.  Inge-  d£|es  ¡téric()s  el  contro]  de  pro- 
mero. especialista  en  electrónica.  y «torra  de  diapositivas,  ele. 

Estas  tres  personas  han  preparado 
diversos  aparatos  para  Ja  evaluación  de  la  X Metisistemas,  S.A.  Plaza  liorna beque,  4,  3-  A.  Palma  de  Mallorca,  leí,:  (971)  23  45  63 
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Deseo  recibir  información  completa 
sobre  la  representación  de  funciones,  apli- 
caciones malemálicas,  ele.  en  el  ordena- 
dor Commodore  64,  ya  que  lo  tengo  y en 
las  instrucciones  que  me  dieron  no  explica 
muv  bien  cómo  hacerlo, 

Sm' 

m y i O ZEA  Al  GOZA  DALMA  N 
ESTACIÓN  DE  T AMARETE 
LA  MERLUZA  (HUESCA) 

Es  cierto  que  el  manual  del  C-64  no 
detalla  la  Furnia  fie  representar  gráfi- 
camente funciones  en  la  pantalla. 

Puedes  conseguir  nías  información 
leyendo  los  artículos  de  la  revista  que 
traten  de  los  gráficos  en  alta  resolu- 
ción, con  La  guía  de  referencia  del  pro- 
gramador del  C-64,  o con  el  manual 
del  SIIVlON's  Basic  que  acaba  de  lan- 
zar Microelectrónica  v Control, 

liU 

Soy  un  VlC-adicto  sin  remedio  desde 
hace  tan  sólo  ocho  meses,  ya  que  fue 
entonces  cuando  tuve  la  oportunidad  de 
tener  un  VlC-20.  Hasta  ahora  todo  había 
¡do  bien;  los  problemas  se  solucionaban 
entre  el  curso  ele  And  re  w Colín  y vuestra/- 
nuestra  revista  (que  empecé  a recibir  en 
febrero).  Pero  cuando  adquirí  el  Super- 
expander  (cartucho  casi  imprescindible)  se 
me  presentaron  nuevos  problemas.  Al 
abrir  el  folleto  adjunto  al  cartucho,  se 
produjo  una  lluvia  de  comandos  que  des- 
pués de  practicar  con  ellos  logré  com- 
prender, pero  se  me  presentaron  las 
siguientes  dudas: 


VI  020 

Plás. 

Tárjela  64K  RAM+2K  EPROM 

19.900 

Tarjeta  4K  EPROM 

3.695 

Tarjeta  40/80  columnas 

16,995 

Unidad  de  expansión  de  2 slots 

2.695 

Unidad  de  expansión  de  5 siois 

9.390 

Primer  Lí utTer  par/par  lóK. 

24.790 

C’liM  64 

Tarjeta  80  columnas 

1 7,900 

tarjeta  4K+8K  EPROM 

4.750 

Unidad  de  expansión  de  2 .slots 

2.695 

Unidad  de  expansión  de  5 slots 

12,495 

Primer  Buffer  ser/par  32K 

27.950 

Primer  Buffet  ser/par  48K 

31.395 

Word proces sor  -r  Manuel  (casete) 

3.200 

PARA  TODO  TIPO  DE  ORDENADORES 

Programador  de  EPROM 

14.995 

Borrador  de  EPROM 

8.775 

Pedidos  e Información: 

DELTA  BIT 

Colón,  20-4. 1 

SILLA  (VALENCIA) 

I el.  (96)  120  29  25 

L — ('Cómo  funciona  v para  qué  sirve  el 
GRAPHIC-l? 

2.  — ¿Cuáles  son  las  principales  aplica- 
ciones del  super-expander  en  video- 
juegos,  compaginando  este  con  el  modo 
normal  de  actuar  del  VIC7 

3.  — ¿ Qué  pasa  cuando  a veces  se  produ- 
cen fallos  en  el  comando  PAIN  1 T que  nos 
lleva  a situaciones  en  teoría  típicas  del 

modo  GRAPHIC-I? 

Asimismo,  me  gustaría  que  en  sucesivos 
números  fuerais  incluyendo  más  informa- 
ción sobre  la  forma  de  lograr  interesantes 
efectos  de  sonido  para  juegos  y otros  pro- 
gramas. y también  algún  artículo  para 
ampliar  conocimientos  sobre  las  funcio- 
nes de  cadena  DIMs,  y demás  misterios, 
asi  como  de  las  aplicaciones  del  plotter 

VC  1520. 

Os  felicito  por  la  estupenda  labor  que 
realizáis  con  esta  revista. 

DA  VID  PEREZ  CORRAL  - 15  años 
PASEE I G DE  SA NT  JOAN,  \ll  - 5o-  4X 
BARCELONA- 3? 

L — El  moda  GRAPHIC  1 del 
Super-expander,  es  el  modo  multicolor 
en  gráficos  de  mediana  resolución.  En 
este  modo  la  pantalla  se  divide  en  16Ü 
líneas  de  80  puntos  por  cada  linca,  y 
cada  punto  puede  tener  su  propio  color 
(entre  los  cuatro  seleccionados  por  el 
comando  COLOR). 

2, — La  aplicación  del  cartucho,  en 
juegos  es  la  de  facilitarte  la  programa- 
ción de  tus  propios  juegos  sin  tener  que 
recurrir  a tantos  POKEs  como  necesi- 
tarías si  no  lo  tuvieses. 

Los  juegos  que  normalmente  puedes 
encontrar  en  el  comercio,  no  suelen  uti- 
lizar el  cartucho  por  estar  escritos  en 
código  máquina,  pero  algunos  lo  nece- 
sitan para  utilizar  los  3K  de  RAM. 

3. — Los  “fallos”  que  mencionas 
ocurren  a)  utilizar  el  comando  PAINT 
en  el  modo  de  alta  resolución,  se  deben 
a que  el  color  en  este  modo  se  fija  por 
bloques  en  lugar  dé  hacerlo  por  puntos. 


Apreciados  señores: 

No  ha  mucho  compróme  un  COMMO- 
DORE-64,  a la  par  que  lo  hacía  un  amigo 
mío.  Nuestra  primera  impresión  del  apa- 
rato fue  de  cierto  desasosiego  al  compro- 
bar que  en  el  manual  adjunto  no  aparece  ni 
la  más  mínima  explicación  acerca  de 
cómo  definir  en  pantalla  una  recta  o una 
curva  en  cualquier  inclinación. 

La  guia  del  comprador  de  Informática 
ano  1984  publicada  por  Haymarket,  y lo 
siento  si  es  propaganda,  afirma  que  el 
OOMMODORE-64  posee  en  su  basic  ins- 
trucciones tan  potentes  como  Point,  Line 
y C irele.  Hemos  probado  todas  ellas  y el 
ordenador  las  ignora  por  completo. 

Por  humanidad,  ¿cómo  dibujar  una 
recta  o círculo  en  alta  resolución?  Orde- 
nadores “hipotéticamente”  menos  poten- 


tes realizan  cualquiera  de  estas  operacio- 
nes con  una  simple  línea  de  programa,  y 
por  supuesto  sus  respectivos  manuales 
dan  amplias  referencias  a esos  comandos 
¿O  es  que  no  se  pueden  efectuar  sin  com- 
prar cartuchos  adicionales?  En  ese  caso 
están  jugando  con  la  ignorancia  y el  bolsi- 
llo del  comprador. 

¿Entra  ahí  el  hit-mapping,  al  que  e! 
escueto  y superficial  manual  no  hace  nin- 
guna referencia? 

Creemos  que  quizás  es  una  decisión 
precipitada  el  considerarlo  “el  mejor 
ordenador  personal  del  mundo". 

Una  última  súplica.  ¿Cómo  definir  un 
simple  gráfico  propio  de  8 X 8 pixels? 
Como  de  costumbre,  aquello  que  Maman 
manual,  nada  aclara.  Huelga  decir  que 
otros  ordenadores  “más  pequeños"  en 
apariencia  al  menos,  necesitan  de  pocas 
instrucciones  para  representarlos  en  los 
respectivos  televisores. 

Suponemos  que  más  del  99%  de  los 
usuarios  tendrán  estas  mismas  dudas 
(sobre  todo  si  poseen  solamente  el 
“famoso  manual").  Si  no  lucre  asi,  nos 
alegramos. 

Esperamos  no  sean  reacios  a la  crítica 
constructiva  y se  dignen  publicar  la  carta. 
Si  lo  desean  pueden  reducirla  a efectos  de 
espacio,  y suprimir  lo  que  creyeran  con- 
veniente, pero  por  favor,  publiquen 
cuanto  antes  la  respuesta. 

Les  felicito  por  la  revista  a la  que  ya 
estoy  suscrito. 

MIGUEL  ORTEGA  MORALES 
C/ INFANTE  MARTIN.  1 , 7CÍ  f 
TERRAS  A {BAR  NA). 

El  primer  asunto  que  mencionas  es 
problema  dé  la  Guia  Haymarket  y no 
tenemos  nada  que  ver  con  ellos  ni 
sabemos  qué  fuentes  de  información 
tienen. 

Para  dibujar  un  círculo  o una  recia 
con  el  C-64  tienes  varias  soluciones: 

Hacer  un  montón  ile  Pokcs  a la 
memoria  de  Pantalla  a adquirir  un  car- 
tucho que  amplié  los  comandos  Basic 
añadiendo  los  de  gráficos,  por  ejemplo 
el  Simon's  Basic.  También  puedes 
esperar  a que  aparezca  publicado 
algún  programa  que  facilite  el  trabajo 
en  alta  resolución  (estamos  buscán- 
dolo). 

El  m apeado  de  pantalla  viene  expli- 
cado en  la  guía  de  referencia  del  pro- 
gramador. Si  piensas  que  es  jugar  con 
la  ignorancia  del  comprador...  eres 
libre  para  opinar  como  quieras.,. 
Todas  las  casas  dicen  que  el  suyo  es  el 
mejor  ordenador  del  mundo,  es  política 
publicitaria. 

En  uno  de  los  próximos  números 
publicaremos  un  programa  para  defi- 
nir tu  propio  juego  de  caracteres  (de 

8*8  Pixels),  no  te  podemos  prometer 
cuándo,  pero  lo  liaremos. 

Estamos  intentando  cubrir  con  artí- 
culos de  la  revista  las  lagunas  det 
“famoso  manual"  como  tú  le  llamas. 
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¡MILAGROS,  NO! 

Desearía  que  me  explicarais  sí  hay 
algún  método  sencillo  para  poder  ni  i li  zar 
la  instrucción/comando  AUTO  sin  poseer 
el  cartucho  de  “Ayudas  al  programador”. 
Atentamente. 


Me  interesaría  saber  si  existe  la  posibi- 
lidad de  conseguir  a través  de  Vds.  un 
catálogo  en  español  sobre  el  uso  del 
Commodore  64,  aparato  que  yo  poseo  y 
que  por  haberlo  comprado  en  las  islas, 
donde  parece  ser  se  importa  directamente 
de  Inglaterra,  viene  con  las  instrucciones 
en  inglés,  So  que.  lógicamente,  nos  oca- 
siona un  grave  perjuicio  a los  usuarios. 

Asimismo,  en  estos  aparatos  que  se 
pueden  adquirir  en  Canarias,  no  se  puede 
obtener  el  sonido  a través  de  la  TV  con  el 
cable  que  suministra  la  casa.  Parece  ser 
que  es  por  diferencias  determinadas  entre 
el  sistema  Pal  inglés  y el  que  se  usa  en 
España.  Les  agradecería  que  si  Vds.  tienen 
conocimiento  de  la  forma  de  resolver  este 
problema  me  lo  comuniquen. 

Sin  más*  aprovecho  para  saludarles  y 
agradecerles  de  ame  mano  su  inestimable 
ayuda. 


PE  RE  ESQUERRA  (Sin  señas) 


Los  milagros  no  los  hacemos  de 
momento*  Métodos  “sencillos"  sin  el 
cartucho  no  hay*  Podemos  intentar 
estudiar  el  tema.  Lo  imposible  lo 
hacemos  al  momento,  con  los  milagros 
tardamos  un  poco  más. 


2. -—  Me  gustaría  saber  qué  hay  que 
hacer  para  que  al  pasar  un  listado,  por 
ejemplo,  en  la  impresora,  las  líneas  se 
empiecen  a imprimir  más  hacia  la 
izquierda. 

3.  — En  el  VIC-20  hay  dos  caracteres 
que  se  pueden  poner  desde  el  leclado,  pero 
que  no  aparecen  en  los  símbolos  frontales 
de  las  teclas:  salen  en  pantalla  pulsando 
primero  SHIFT  y COMM  y después  las 
teclas  del  número  pi  y del  asterisco  junto 
con  la  tecla  COMMODORE. 

FRANCISCO  SAEZ  SOTO 
C/  VI R GEN  DEL  ROSARIO,  28 
ALCANTARILLA  (MURCIA) 


POSICIONES  EN  CODIGO 
MAQUINA 

!. — Tengo  unas  pequeñas  ideas  sobre 
código  máquina  y entiendo  por  qué  en  las 
posiciones  0*  1 y 2 del  VIC-20  hay  que 
introducir  los  valores  que  se  señalan,  pero 
¿por  qué  ha  de  ser  en  0,  I y 2 y no  en  otras 
posiciones  posteriores? 


FREO í) Y M.  1 ,0 PEZ  G ONZA, 
PUERTA  CAR  SECO,  47-3 p R 
SANTA  CRUZ  DE  TENERIFE 


FJ  manual  debes  pedirlo  a Microelec- 
trónica, pero  no  sé  si  lo  tendrán  a la 
venia.  (El  del  VI C lo  anuncian  a 800 
pesetas).  Si  tú  lo  has  comprado  en 
Canarias,  que  es  donde  vives,  el  distri- 
buidor que  le  lo  ha  vendido  es  respon- 
sable  de  dártelo  debidamente  sintoni- 
zado. Exígeselo  pues  es  su  obligación. 
Además,  este  proceso  de  ajuste  es  una 
operación  muy  simple  que  lleva  unos 
segundos. 


GRAFICAS,  DIBU  I 
SU  PE  R EXPANDIR 


Os  envío  esta  carta  pues  tengo  una  duda 
sobre  una  instrucción  del  VIC-20,  El  pro- 
blema  es  que  no  conozco  cuál  es  la  ins- 
trucción para  poder  hacer  gráficas,  di  bu- 

jos..* 

Yo  he  visto  como  en  el  Spectrum  utili- 
zan la  instrucción  PLÜT,  pero  ésta  no 
vale  para  el  VIC-20  y desearía  saber  cuál 
es.  Espero  atentamente  recibir  respuesta  y 
un  pequeño  programa  de  ejemplo,  os 
saluda  atentamente. 


CARLOS  ALBERTO  LOPEZ 
ROIGr  II  BIS , 4^  f 
BARCELONA-} 


Para  disponer  de  esas  instrucciones 
(Plot,  Une,  circle,  draw,  etc.)  necesitas 
conectar  a tu  VIC  el  Cartucho  "Super- 
expander".  Sin  él*  tendrás  que  utilizar 

infinidad  de  POKES  como  en  algunos 
de  los  juegos  que  aparecen  en  la 
revista. 
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L — Corréelo,  lo  de  los  Pokes  debes 
introducirlo  en  0, 1 y 2 ya  que  esa  era  la 
función  de  esas  posiciones  de  memoria. 
No  puedes  hacerlo  en  otras  direcciones 
porque  tienen  asignadas  funciones 
diferentes. 

2,  — Tienes  dos  soluciones  para  lo 
del  listado: 

a)  Mover  los  tractores  del  papel 
hacia  la  derecha  lo  que  le  permita  el 
margen  que  te  sobra. 

b)  Si  la  impresora  fuese  programa- 
ble,  alterar  el  registro  que  regula  el 
margen  (en  las  instrucciones  te  lo 
explicará),  pero  las  impresoras  Com- 
modore  que  yo  conozco  no  pueden  pro- 
gramar los  márgenes. 

3.  — Finalmente,  tu  truco  debe  refe- 
rirse a un  V1C-20  antiguo,  a los  que 
tenemos  no  les  falta  ningún  carácter. 

‘SOFT  MISTERIOSO” 

Aprovecho  la  ocasión  para  rogarles 
incluyan  — si  es  posible—  en  un  próximo 
número  un  comentario  profundo,  sobre 
todo  en  su  nivel  0,  del  GRANDMAS- 
TER-64  {Nü  de  catálogo  SS080). 

FELIX  GARCIA  GUTIERREZ 
CALLE  DOCE  DF.  OCTUBRE.  16  INT 

VA  LEA  D O LID- 5 

¡Club!  ¡Nos  has  dejado  asombrados! 
¿Qué  es  eso? 

Si  algún  distribuidor  nos  lo  manda, 
haremos  el  comentario  sobre  “esta 
cosió  \ Este  n - de  referencia  dinos  a 
qué  catálogo  de  fabricante  o distribui- 
dor se  refiere. 

Repetimos:  Distribuidor  y fabrican- 
tes: ¡Necesitamos  Catálogos,  Informa- 
ción, etc.*.! 


RECHAZO  Di  CINTAS 

Queridos  amigos:  lo  primero  que  quiero 
hacer  es  felicitaros  por  vuestra  revista,  que 
me  parece  muy  completa,  A continuación 
quiero  consultaros  un  problema: 

Se  trata  de  mi  cassette  (Tengo  un  VIC- 
20).  Tengo  varias  cintas  de  juegos  y vírge- 
nes; y en  ambas  hay  programas  que  son 
aceptados  y otros  que  no  (por  el 
ordenador). 

Me  gustaría  saber  por  qué  pasa  esto  y la 
solución  que  podria  tener.  Gracias. 

LEANDRO  OEALEA  MARTINEZ 
EUGENIO  SELLES , 5-B  (PEDRE- 
GA  TEJO) 

MALAGA- i 7 

Si  no  tienes  el  datassette  de  tu 
VIC,  no  me  extrañan  tus  pegas...  no 
tiene  solución  sencilla,  solo  una:  com- 
prar el  datassette. 

Si  lo  tienes,  puede  ser  problema  de 
las  cintas  (cambíalas  donde  te  les  ven- 
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dieron  grabadas),  o problema  del 
datassette;  si  es  asi,  debes  llevárselo  al 
distribuidor  donde  lo  compraste  para 
que  lo  comprueben. 

“ALERGIA  AL  CALOR” 

Estimados  amigos:  Empiezo  felicitán- 
doos por  la  magnifica  revista  que  hacéis, 
de  la  que  soy  suscriptor  desde  el  nv  I . 

Quería  exponeros  un  problema  que 
tengo  con  el  Supcr-expander,  éste,  una  vez 
conectado  en  el  VIC,  funciona  normal- 
mente, hasta  que  llevo  aproximadamente 
media  hora  operando  con  él,  tras  la  cual, 
se  interrumpe  el  programa,  caso  de  que 
esté  ejecutando  el  mismo,  o se  me  borra  la 
pantalla  y aparece  Ready,  si  intento  listar 
o volver  a ejecutar  y no  obedece,  el  orde- 
nador estando  bloqueado,  caso  de  desco- 
nectar el  ordenador,  y volverlo  a conectar 
aparece  en  el  monitor  toda  la  pantalla 
llena  de  caracteres  de  colores  muy  diver- 
sos en  inversión  de  color  y sigue  blo- 
queado el  ordenador,  esto  persiste  hasta 
otra  jornada.  Me  ocurre  siempre,  tras  la 
primera  media  hora.  Caso  de  quitar  el 
super-expander.  el  ordenador  actúa  nor- 
malmente. Quisiera  que  me  dijerais  si  es 
problema  del  cartucho  o del  ordenador. 

También  me  gustaría  me  dijerais  quién 
o dónde,  puedo  adquirir  un  programa 
sobre  quinielas  para  el  V1C-20. 

Esperando  me  echéis  una  mano,  recibir 
las  gracias  anticipadas  de  un  buen  y fiel 
seguidor. 

RAMON  PORRERO  GARCIA 
ESTA  CION  RENTE 
CUENCA 

El  problema  seguramente  es  de  tu 
cartucho,  si  quieres  hacer  la  prueba, 
llévatelo  a un  distribuidor  de  Commo- 
dore  que  tenga  algún  V1C-20  conec- 
tado todo  el  día  con  algún  cartucho,  y 
con  el  VÍC  “caliente1':  apágalo, 
enchufa  el  cartucho,  enciéndelo  y 
prueba.  Ya  verás  cómo  el  fallo  aparece 
al  momento,  tu  cartucho  tiene  “alergia 
al  calor”. 

Si  lo  pruebas  en  un  VIC  de  los 
modernos  (que  no  se  calientan  por  la 
zona  del  cariucho),  el  fallo  no  aparecerá. 

Lleva  el  cartucho  al  distribuidor  que 
te  lo  vendió  y él  te  solucionará  tu 
problema. 

Y sobre  las  quinielas...  nosotros 
también  queremos  uno...  ¡Pero  que 
acierte  los  14! 


UNIDAD  DE  DISCOS 

Soy  un  amante  de  la  informática  y 
tengo  un  problema.  Soy  poseedor  de  un 
V1C-20  con  cassette,  unidad  de  disco  e 
impresora.  El  problema  está  en  que  el 
manual  de  usuario  de  la  unidad  de  disco 
no  está  muy  claro  a la  hora  de  abrir,  mejor 
dicho,  de  trabajar  con  ficheros. 

Yo  he  probado  a manejarlos  pero  no 


puedo  trabajar  con  ellos.  He  trabajado 
con  un  ordenador  NIXDÜRF  de  la  serie 
8870  con  disco  y allí  es  muy  fácil  abrirlos 
{cuando  digo  abrirlos  me  refiero  a traba- 
jar con  ellos),  y en  lodo  momento  se  pue- 
den utilizar  los  registros  y sabes  qué  regis- 
tros utilizas,  pero  con  esta  unidad  no  lo 
sabes. 

Esperando  que  haya  quedado  claro  mi 
problema,  se  despide  vuestro  amigo. 

P.D,;  En  el  ny  I de  “COMMGDORE 
WOR 1 - D”  en  la  página  44  h av  una  i tí  cu  I o 
sobre  “TECNICAS  DE  ACCESO  DIREC- 
TO. FICHEROS  EN  DISCO  (5)“,  Me 
gustaría  que  si  tenéis  más  artículos  sobre 
ficheros  de  acceso  Directo  o relativo  me 
lo  enviarais  para  poder  comprender  el 
manejo  de  la  unidad.  Gracias. 

ANDRES  PASCUAL  RINCON 
FELIX  LA  FUENTE,  4,  6X  OCHA. 
HUESCA 

En  el  número  4 publicamos  un  artí- 
culo sobre  la  unidad  de  disco,  y en  los 
números  10,  11,  12  y 14  de  Club 
Commodore  aparecieron  los  números 
anteriores  de  la  serie  de  artículos 
“ficheros  en  disco11. 

Estamos  buscando  más  información, 
iremos  publicando  todo  lo  que  encon- 
tremos. 

“MAS  FALLOS  DEL  MANUAL” 

¡Hola!  Me  llamo  José  Luís  Tejedor  y 
soy  un  reciente  comprador  de  un  Com- 
modore  64  y lector  de  su  revista. 

En  el  manual  del  usuario  de  Com mo- 
do re  64,  en  la  página  51,  en  el  programa 
de  “juegos  de  adivinar  números",  creo 
que  tiene  que  faltar  una  línea  que  fuese 
CN=Ü.  para  que  cuando  se  juegue  otra  vez 
de  nuevo,  los  intentos  se  cuenten  a partir 
de  cero  y no  de  los  intentos  anteriores.  Yo 
tengo  puesto  lo  siguiente:  78  CN=0. 

Quisiera  saber  si  lo  anterior  es  correcto 
y en  ese  caso  si  CN=0  hay  que  colocarlo 
en  la  línea  78  o en  otra  línea. 

Les  ruego  si  me  podrían  decir  mi 
número  de  socio,  pues  un  amigo  mío  no  se 
cree  que  Commodore  World  tenga  más  de 
LOGO  socios, 

JOSE  LUIS  TEJEDOR 
C/ CARRETAS*  14 
MADRID- 12 

Efectivamente  falta  La  Instrucción 
CN=G, 

Puedes  colocarla  en  cualquier  línea 
a partir  de  la  2 y antes  de  la  30,  o si 
prefieres  después  de  la  65  y antes  de  la 
90,  Como  tú  prefieras. 

Tu  número  de  socio  es  el  4.397. 

“GRAFICOS  EN  VIC  20  MAS  1 6K” 

Ruego  me  indiquen  las  posiciones  a las 
que  se  ha  de  hacer  POKE  de  las  datas  de 
los  gráficos  especiales,  a la  vez  que  deseo- 


nozco  si  la  iniciaüzación  POKE  52,  28: 
POKE  56,  28:  CLR:  POKE  36869,  255,  es 
válida  trabajando  con  la  dicha  ampliación 
de  16  K. 

VICENTE  GOMEZ  FAUBEL 
DUQUE  DE  LIRIA,  70 
LLIRIA  (VALENCIA) 

Esto  está  explicado  en  este  mismo 
número  con  un  programa  de  ejemplo 
que  se  llama  “El  Pozo11, 

La  inícializarión  sería  válida,  pero 
pierdes  los  16  K RAM,  como  si  no  los 
tuvieses  y cambian  Jas  direcciones  de 
los  POKES  de  pantalla, 

REGISTROS  DE  CONTROL 

Ah  i van  algunas  preguntas  para  los 
expertos  en  el  CBM  64: 

1. - — ¿Cómo  luciouan  las  posiciones  de 
memoria  53272DÜ18  y 53265D011?  ¿Se 
pueden  colocar  los  caracteres  programadles 
a partir  de  la  posición  49152?  O,  mejor 
aún,  ¿podrían  colocarse  en  la  RAM  que 
reside  “debajo”  de  la  ROM  de  caracteres? 
¿Cómo? 

2. - — ¿Cómo  se  puede  modificar  el  pun- 

tero de  lectura  de  los  DATA  para  que 
continúe  leyendo  a partir  de  una  determi- 
nada linca  de  programa?  (En  algunos  sis- 
temas puede  usarse  la  instrucción  RES- 
TORE  Ulü  para  hacer  que  el  siguiente 
dato  en  leerse  sea  el  primero  de  la  línea 
KX)),  í 

3.  — Echando  un  vistazo  al  BASIC,  apa- 
rece el  comando  GÜ,  que  por  lo  tanto  no 
puede  usarse  como  nombre  de  variable. 
Sin  embargo,  no  aparece  en  ningún 
manual.  ¿Para  qué  sirve? 

Y una  pregunta  para  los  distribuidores: 
¿Tiene  COMMODORE  la  intención  de 
lanzar  al  mercado  otro  tipo  de  unidad  de 
disco  más  económico?  La  unidad  1541  me 
parece  demasiado  cara,  teniendo  en 
cuenta  que  sólo  puede  manejar  170  K. 

GUILLERMO  C A AMAÑO  OLIVARES 

ARABIAL,  11  - I*  D 

GRANADAS 

E — Esas  direcciones  pertenecen  al 
Chip  de  Video  del  C-64.  La  explica- 
ción sería  demasiado  larga  para  esta 
sección,  y la  tienes  en  la  guía  de  refe- 
rencia del  programador  del  C-64 
(páginas  83  y siguientes). 

Colocándolos  debajo  de  la  ROM 
tendrás  problemas  con  las  unidades  de 
entradas/salidas, 

2.  — Puedes  modificarlo  haciendo 
unos  pokes  a las  posiciones  63,  64,  65  y 
66.  En  uno  de  los  próximos  números 
del  misterio  de  los  pokes  lo  desvelare- 
mos... 

3. -— Es  uno  de  tos  que  “ni  comen  ni 
dejan  comer",  no  tenemos  una  explica- 
ción razonablemente  sólida  para  que 
no  se  pueda  utilizar,  ni  como  variable 


ni  como  comando.  Si  alguien  lo  sabe 
que  lo  díga.., 

4. — Lo  del  precio  del  1541  lo  deja- 
mos aquí  para  los  distribuidores.  A 
nosotros  no  nos  corresponde  entrar  ni 
salir  en  el  tema. 


“CAROTINA”  DE  NUEVO 

Ruego  me  dieran  un  poco  de  informa- 
ción sobre  el  programa  “Carotena”  remi- 
tido en  el  número  de  Febrero  para  que 
pueda  ir  en  el  Commodore  C-64. 

CARLOS  EST ELEES  G ARGALLO 
BALTASAR  GR  A CIA  N,  35 , lú  É 
BARCELONA- 16 

Ponte  en  contacto  con  su  autor:  Luis 
Carballo  Taboada,  C/Cardenal  Que- 
vedo,  35,  5e,  ORENSE. 

De  todas  formas  sus  señas  aparecen 
en  Carta  Blanca  del  n?  3, 


MAS  SOBRE  LOS  f»QKES 

Para  los  iniciados  en  el  CBM-64  creo 
que  sería  importante  ampliar  información 
sobre  los  POKES,  porque  fuera  de  los 
referidos  a los  Sprites,  sonido,  caracteres 
en  pantalla,  colores  y pantallas,  no  hay 
muchas  fuentes  de  información  (o  no  sé 
entenderlas). 

JOSE  ARTURO  GUILLEN  VALEN 
C/ MARINA  ESPAÑOLA,  EDIFICIO 
AZABACHE , 14*  C 
ZARAGOZA. 

En  el  número  3 liemos  comenzado 
una  serie  de  artículos  denominados  “El 
Misterio  de  los  Pokes”,  Espero  que  la 
información  que  ha  aparecido,  aparece 
y aparecerá,  te  resulte  suficiente  y 
puedas  entenderla, 

NO  TENEMOS...  NO  TENEMOS... 

NO  TENEMOS... 

Como  componente  del  antiguo  Club 
Commodore,  y suscriptor  ahora,  del 
Commodore  World,  desearía  que  me 
enviases,  contra  reembolso,  un  esquema 
de  la  conexión  en  paralelo  de  más  de  un 
cartucho  al  VIC-20,  asi  como  información 
precisa  sobre  las  posibilidades  en  cálculo  y 
gráficas  del  cartucho  Forth. 

Sé  que  existe  un  Víe-expander  para  cua- 
tro cartuchos,  y me  conformaría  con  una 
fotocopia  por  ambas  caras  de  la  chapa  del 
circuito  impreso. 

Sin  más,  os  saluda,  y ojala  podáis  satis- 
facer mis  deseos, 

ANTONIO  POLO  NIC  ARMADA 
REYES  CATOLICOS,  12-114 
MONTILLA  (Córdoba) 

No  tenemos  el  esquema  de  este 
expansor,  pero  si  alguien  lo  tiene 
publicamos  tus  señas  para  que  te  lo 
envíe. 


Tampoco  tenemos  fotocopias  de  la 
placa  del  circuito  impreso.  Información 
sobre  el  forth  sólo  tenemos  la  lista  de 
comandos  que  acompaña  al  cartucho 
del  C-64.  Insistimos:  Distribuidores, 
editoriales,  etc,,  [Queremos  informa- 
ción í 

¿64,  ORGANO  ELECTRONICO, 

O PIANO? 

Os  escribo  esta  carta  por  dos  motivos: 

El  primero  es  haceros  una  pregunta 
sobre  el  C-64,  y la  segunda  para  mandaros 
una  “magia”  por  si  mereciese  la  pena 
publicarla. 

La  pregunta  es  sí  es  posible  utilizar  dos 
tedas  a la  vez  en  un  programa  de  alguna 
forma.  Lo  pregunto  poique  he  intentado 
reformar  el  programa  que  viene  en  el  libro 
de  instrucciones  de  teclado  de  piano,  para 
ver  si  se  podrían  hacer  acordes. 

JOSE  LUÍS  AROSTEGUI  PLAZA 
ALMONA  DEL  BOQUERON,  15 
GRANADAS 

Los  Commodore  no  pueden  delectar 
cuando  se  pulsan  dos  teclas  a la  vez, 
con  la  excepción  de  SHIFT,  CTRL  y 
la  teda  COMMODORE.  [Esto  no  es 
un  piano! 


Se  necesitan 
col  a bar  a clores 
para  traducción 
de  manuales  y 
programas  pa- 
ra COMMODO- 
RE-64.  Impres- 
cindible residir 
en  Barcelona  y 
ser  usuario  de 
este  equipo. 


Interesados 

llamar  a Sr.  Pardo 
Tel.:  321  96  36  - 
321  97  58 
en  horas  de  oficina 
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• Tarjeta  COMMODORE  64 
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Tarjeta  VIC-20 
Ampliación  de  memoria 
64  K-  RAM 


• Slots  de  expansión 
para  VIC-20  y 64 
de  2 y 5 para  conexión 
de  tarjetas 
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DISTRIBUIDORES  EXCLUSIVOS  PARA  TODA  ESPAÑA 


PEDIDOS  DISTRIBUIDORES  COMMODORE 


PEDIDOS  USUARIOS 


FERRE-MORET,  S.  A. 

Sección  Hardware  y software 
Tei.  93/  250  84  40/  Contestador  Aut. 
Escribir  At.  Director  Comercial 
C /,  Buenos  Aires  n.°  30  2o  3a 
3ARCELONA-36 


FERRE-MORET,  S.  A. 

Tel.  93/  250  84  40/  Contestador  Aut 
Escribir  indicando  la  sección 
C/.  Buenos  Aires  n.°  30  2o  3a 
BARCELONA-36 


MERCADILLO 


Servicio  gratuito  para  nuestros  lectores  particulares.  Empresas  300  ptas..  por  línea 
i De  no  especificar  duración,  los  anuncios  serán  publicados  durante  I mes. 


( Ref.  M-31) 

• Me  gustaría  cambiar  juegos  para  el 
Commodore  64.  El  que  este  intere- 
sado que  me  mande  su  lista  de  juegos 
v vo  le  mandaré  la  mía,  Pueden  man- 

H- 

dar  su  carta  a Juan  Carlos  Cambín 
Herrera,  P./del  Metal  nu  1,  3Ü  D. 
ALICANTE-6.  También  pueden  lla- 
mar al  teléf,:  280  633»  Preguntar  por 
Juan  Carlos  o Rafael  Cambín. 


(Ref.  M-36) 

• Vendo  Curso  de  Introducción  al 
Lenguaje  Basic  Parle  I para  el  C-64, 
Precio:  2.000  pesetas.  Luis.  Teléfono: 
(91)  241  52  97. 

(Ref  M-3  7) 

• Se  vende  impresora  Vt  -1515  en 
buen  estado.  Precio  35,000  ptas.  José 
Soto,  CARTAGENA.  Teléfono:  (968) 
51  69  18. 

(Ref  M-3 8) 

• Vendo  Vic-20  con  ampliación  de 
I6K  RAM  muchos  juegos  y el  cassette 
y libros  incluidos  60,000  pesetas.  Telé- 
fono: (91)  446  65  56,  Ismael, 

(Ref  M-3 9) 

• Vendo  Commodore  64  con  seis 
meses  de  uso,  cassette  Commodore,  8 
programas  comerciales  de  juegos 
sobre  cassette,  dos  cartuchos  de  jue- 
gos: KIKMAN  y VV  IZARE)  OF 
WOR.  Cartuchos  de  PORTEE  pro- 
gramas Base  de  datos  y Procesador  de 
textos,  ambos  en  cassette;  además  un 
joystick  Spectra  video  y los  libros: 
“Manual  de  referencia  del  programa- 
dor" y “Commodore  64  compuling'L 
Dirigirse  a Francisco  Maya  Carrasco, 
C/  San  Fernando,  15,  Utrera  (Sevi- 
lla). Telf:  (954)  86  09  49. 

(Ref  M-40) 

• Vendo  lote  de  cintas  para  el  Com- 
modore 64  compradas  en  España  e 
Inglaterra  y en  buenas  condiciones. 
Los  títulos  son:  Skramble,  Attack  oí 
the  mutant  eamels,  3Dtime  treck,  2 
cassettes  especiales  para  grabar  con  el 
ordenador  de  alta  fiabilidad,  lodo 
por  3.800  pesetas  (precio  real  6,000 
pesetas).  Manuel  Giner  Nadal.  Pclf: 
(965)  83  03  08.  Hotel  “Venta  la 
Chata",  CALPE,  Alicante, 

(Ref  M-41) 

• Vendo  Commodore  64  v unidad  de 

* 

discos  VC-1541  en  perfecto  estado. 
Regalo  cantidad  de  programas  en 
disco  profesionales;  VIC-TREE.  Com- 
pilador Basic,  MAGRO  ASSEMBLER. 
HES  MONITOR,  etc.  y cientos  de 


(Ref  M-27) 

* Me  gustaría  entrar  en  contacto  con 
gente  que  tuviera  “VIC-20"  en  Al  cor- 
eó n para  intercambiar  programas  y 
experiencias.  Mi  dirección  es:  Juan 
Antonio  Barreda  García , Avda.  Pai- 
voranea,  72,  lü  esc.  I1'  D.  ALCOR- 
CON  (Madrid).  Teléf.:  (91)  641  07  05. 


(Ref  M-3 2) 

• Vendo  VIC-20  (comprado  en  enero 
de  1983)  con  super  expander,  cartu- 
cho de  memoria  adicional  de  25 
kbytes,  otro  cartucho  de  ayuda  al 
programador  y el  monitor  de  lenguaje 
de  máquina,  un  expan  sor  de  4 cartu- 
chos v once  juegos  de  Indcscomp,  Por 
60.000  (valor  rea!  98.000).  Llamar  los 
días  de  diario  de  7 - 1 por  la  noche, 
José  Sánchez.  Teléf.:  (91)  457  01  70. 


(Ref  M-28) 

• Vendo  “VIC-20"  (comprado  en  el 
84)  “con  cassette"  y regalo  bibliogra- 
fía, entre  ella  la  suscripción  a la 
revista  “Commodore"  del  año  84,  O 
cambiaría  todo  ello  por  cámara  foto- 
gráfica CANON  AE-1,  o FT\ 

Llamar  preguntando  por  Jorge  al 
(94)  462  41  52,  de  11  a 2 y de  21  a 23 
horas.  Jorge  H erran  Arnáiz,  C/San 
Ignacio,  3,  3y  A»  Portuga I ete  (Bizkai a). 


(Ref  M-3 3) 

• Colegio  Nacional  de  E.G.B  con 
VIC-20  agradecería  recibir  toda  posi- 
ble información  sobre  soft  educativo 
o apropiado  para  colegios  con  pre- 
cios. También  acepta  cualquier  regalo 
de  soft  que  se  le  quiera  enviar»  Cole- 
gio Público  Antonio  Machado,  Car- 
los Arciniega  Fernández  (Director)  - 
C/ Valencia,  s/n,  SAN  SEBASTIAN 
DE  LOS  REYES  (Madrid).  Teléf  : 


(Ref  M-29) 

• Vendo  el  cartucho  “Basic  Pro- 
gramming  (CX2620)"  y los  dos  man- 
dos de  teclas  (CX5G)  de  A tari.  El 
mejor  inicio  en  la  informática.  Todo 

■V 

nuevo  y por  sólo  7,000  ptas.  Llamar  al 
734  1 1 03.  Madrid.  David,  de  9 a 1 ó 
por  la  noche.  David  Cervigón  Fer- 
nández, C /Bada  lona,  102.  MA- 
DR1D-34. 


(Ref  M-3 4) 

• Deseo  ponerme  en  contacto  con 
programadores  aficionados  a pro- 
gramas de  tipo  científico-técnico,  Luis 
Pellicer  Lorenzo.  C/Conde  de  Torre- 
cedería,  122.  3y  A.  VíüO-8»  (Ponte- 


(Ref  M-30) 

• Tengo  pésimos  conocimientos  de 
programación,  aunque  buenos  de 
astro  logia,  astronomía  y mecánica 
celeste.  Me  gustaría  encontrar  un 
colaborador  para  construir  un  ambi- 
cioso programa  de  elaboración  de 
horóscopos  astrológicos*  personales» 
Yo  tengo  un  VIC-20.  Si  estáis  intere- 
sados en  esta  materia  o tenéis  alguna 
información,  llamadme.  Preguntad 
por  José  al  422  66  4 1 (casa ) o también 
al  332  56  90  (trabajo)  de  Barcelona, 
Os  espero. 


(Ref  M-35) 

• ¿Dónde  puedo  encontrar  un  ejem- 
plar del  libro  “MOS  6502  Program- 
ming  Manual"?  Me  gustaría  echarle 
un  vistazo  para  ver  sí  es  interesante 
antes  de  adquirirlo.  Luis  Suárez 
Antuña.  C/Natividad,  2-4°.  ALCALA 
DE  HENARES. 
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juegos,  muchos  inexistentes  en  España. 
Todo  i 55.000  ptas,  Francisco  Gutié- 
rrez Churtiehaga.  Telf,:  253  13  40. 
Madrid.  Horas  comida  v cena. 

wJ 

(Ref  M-42) 

• Suministro  RTTY  para  VIC-20  y 
COMMODORE  64.  Cartucho  modu- 
lador/ demodulador,  programa  en 
cassette  y manual  por  15K.  EA3CIW 
(93)  725  53  80  a partir  22  h, 

(Ref  M-43) 

• Desearía  vender  por  40.000  pías. 
VIC-20  DaLassette  E2N  (Enero  1984), 
regalo  E8  programas,  Guía  de  refe- 
rencia del  programador  y varios 
libros.  También  lo  cambiaría  por 
pequeño  laboratorio  fotográfico.  J,M. 
Hervas.  Ciudad  Real,  10.  MONZON. 
Huesca. 

(Ref  M-44) 

• Vendo  VIC-20:  Comprado  en 
diciembre  con  cassette  por  32.000 
pesetas;  Ramón  Baladrón,  C7  Novoa 
Santos,  32-87  Teléfono:  25  17  29.  La 
Coruña- 6, 

(Ref  M-45) 

• Compraría  impresora  Seíkosha  o 
Comm odore.  Teléfono:  212  87  69  — 
Noches — José  Luis  Domingo, 

(Ref  M-46) 

• Vendo  VIC-20,  Cassette  C2N,  6 
juegos  indescomp.  5 cintas  con  pro- 
gramas, ampliación  memoria  J6K,  I 
cartucho  juego,  parte  1 del  curso  de 
Has  íc,  y I libro  con  programas,  todo 
por  50.000  pesetas.  Juan  Ventura, 
C/  Roca,  2-5ü  3/  SabadelL  Teléfono: 
(93)  725  74  58. 


CLUBS 


(Ref.  C-l) 

• Club  de  amigos  del  VIC-20  y 
Cu  ni  modo  re  64.  Ramón  O.  Serna 
Soler.  Foto  Estudio  2,  Plaza  de  Som- 
brereros, 2.  PALMA  DE  MALLORCA. 
Teléfono:  21  31  62. 

(Ref  C-2) 

• Desea  información  sobre  clubs  en 
existencia  y gente  que  quiera  formar 
uno.  Agustín  Que  vedo  V el  asco.  O ña, 

55-4*  B.  MADRID-34.  Teléf,:  202  94  28. 
(Ref  C-3 ) 

• Desea  información  sobre  clubs  en 
existencia  y gente  que  quiera  formar 
uno.  Pablo  Ni  si  al  Alonso.  Empeci- 
nado, 46,  6Q  B.  MOSTOLES.  Teléf/ 
645  21  70. 


(Ref  C-4) 

• Club  de  programación  Alaiz,  en 
Pamplona,  Está  dirigido  a estudiantes 
de  R.U.P.  y C.O.U,  de  esta  ciudad,  y 
el  fin  que  tiene  es  la  introducción  en  el 
mundo  de  la  informática  y programa- 
ción BASIC.  No  tiene,  por  lo  demás, 
ningún  fin  lucrativo.  El  club  propia- 
mente posee  equipos  COMMODORE 
64,  VIC-20,  v diversos  periféfieos 
(impresora,  unidad  de  disco  y cas- 
sette) CLUB  ALAIZ.  Pza,  Monaste- 
rio Santa  Gemina,  s/n.  Teléfonos: 
254  480-257  704.  PLAMPLONA. 

(Ref  C-5) 

• Club  de  Comm  odore  de  Alhacete, 
Fernando  Martínez  Guerrero.  La 
Roda,  39.  5"  D.  ALBACETE. 

(Ref  C-6) 

• Círculo  Durensan  Vigués.  VI GO, 
Venezuela,  48.  Entrecban.  Tels.:  (986) 
410  683/422  519. 

(Ref  C-7) 

• Un  grupo  de  usuarios  de  la  Comu- 
nidad Autónoma  de  Murcia  intenta 
crear  un  Club  de  Usuarios  de  VIC-20 
y C-64  en  esta  región,  sin  fines  lucra- 
tivos. Interesados  llamar  a los  teléfo- 
nos (968)  80  23  64  (Mañanas,  pregun- 
tar por  Paco);  (968)  26  72  62  (Tardes, 
preguntar  por  Fernando).  Francisco 
Sáez  Soto.  C/ Virgen  del  Rosario,  28. 
ALCANTARILLA.  Murcia. 

(Ref  C-8) 

• Deseo  contactar  con  interesados  en 
formar  un  club  de  microordenadores 
en  Barcelona  e intercambiar  experien- 
cia Do  menee  Garro  fe,  C/ Aragón, 
575,  4Ü  2e  BARCELONA-26.  Teléf.: 
348  00  39. 

(Ref  C-9) 

• Interesados  en  la  creación  de  Club 
de  Usuarios  en  Giro  na  escribir  a 
"Apartado  de  Correos  n-  580”  de 

GIRON  A. 

(Ref  C-l (}) 

• Xabier  Prat  i Burdo  que  vive  en 
c/ Rabal  Sta.  Eulalia  s/n  de  Sta. 
María  Dolo  (BAGES)  Barcelona,  qui- 
siera saber  si  existe  algún  Club  Com- 
modore  cerca  de  Manresa  y solicita 
información  sobre  todo  lo  relacio- 
nado con  Módems. 

(Ref  C-l  i) 

• Os  rogaría  me  comunicarais  si 
existe  algún  Club  Comm  odo  re  en  mi 
ciudad  (GUADA  LA  JARA)  o en  ALCA- 
LA DE  HENARES  (donde  trabajo), 
t ambién  agradecería  información  acer- 
ca accesorios,  publicaciones,  etc.,  así 
como  de  distribuidores  de  Madrid  que 
trabajen  con  el  C-64.  Miguel  Angel 
Capcña  Alonso,  C/Tabernero,  16-3- 
L Teléf.:  (91)  22  67  57, 


(Ref  C-12) 

♦ Desearía  información  sobre  la  exis- 
tencia de  algún  Club  C o m modo  re  en 
Somaén  o sus  cercanías,  Carlos 
Cabrera.  Camino  de  las  Eras,  s/n. 
Somaén  (Soria). 

(Ref  C-l 3) 

♦ Asociación  Manehega  de  Usuarios 
de  CBM-64  (A.M.U.C.-64)  C/Blasco 
de  Gara  y.  IÜ-  ALBACETE.  Es  La  aso- 
ciación persigue  extender  el  uso 
racional  de  la  informática,  concretán- 
dose de  momento  en  el  ordenador 
Commodore  CBM-64, 

(Ref  C-l 4) 

♦ Os  agradecería  que  comuniquéis  a 
los  lectores  de  la  revísta  el  nacimiento 
del  Club  MíCRO-ESIT  AI.  en  el  que 
nos  reunimos  aficionados  y profesio- 
nales de  la  electrónica  e informática 
con  ganas  de  divertirnos  aprendiendo 
c intercambiar  experiencias. 

Estamos  en  Gran  Vía,  682,  Pial. 
(Entre  Bruch  y Gerona)  de  Barcelona. 
Todos  los  amigos  que  tengáis  más  de 
15  años  y menos  de  100  podéis  parti- 
cipar de  esta  experiencia.  Y si  sois  más 
jóvenes,  venid  también,  ya  nos  las 
ingeniaremos  para  organizar  activi- 
dades interesantes. 

Para  informaros,  los  viernes  de  6 a 
8 tarde  o los  sábados  de  9 a I 1 de  la 
mañana. 

(Ref  C-l 5) 

♦ Queremos  formar  un  Club  Com- 
modore en  Barcelona:  José  Teléfono: 
329  86  3L  C/  Aurora  19-4°  1.a 

Barcelona. 

(Ref  C-16) 

♦ Me  dirijo  a ustedes  por  un  hecho 
reciente,  que  es  la  disolución  del  único 
club  de  usuarios  en  Catalunya  con 
sede  social  en  ELEKTROCOMPU- 
TER  en  Barcelona,  Quiero  decirles 
que  su  revista  es  un  medio  para  crear 
un  nuevo  Club,  por  eso  pido  que  si 
ustedes  lo  creen  conveniente,  publi- 
quen esta  carta.  Eduardo  Mactp  Pite 
C/  Horno  de  la  Villa,  n-  4,  MONT- 
ELA NC.  Tarragona. 


BOLSA  DE 
TRABAJO 


DEMANDA 

(Ref.  RD-I) 

• Realizo  procesamiento  estiufisueo  di-  datos 
Tino:  0 1-27^  2D  Pedro  Cu  mina  I 
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por  .lordi  SASTRE 


Los  utilitarios  son  herramientas  para 
el  programador,  El  programador 
trabaja  con  muchos  elementos  de! 
ordenador:  pantalla,  teclado,  unidades  de 
disco,  impresoras,  variables,  ficheros, 
programas,,.,  y un  largo  etcétera.  Pero 
generalmente  la  mayoría  de  los  utilitarios 
se  refieren  a la  unidad  de  discos  en  general 
o a ficheros  en  particular,  que  es  donde  se 
almacenan  los  programas  y los  datos.  Asi, 
en  meses  anteriores  hemos  visto  utilitarios 
para  cambiar  el  formato  de  programas, 
para  cambiar  números  de  periférico  y 
para  modificar  el  nombre  a los  discos.  Y 
continuaremos  con  utilitarios  de  discos 
puesto  que  no  es  norma  impuesta  a la 
j fuerza,  sino  que  se  impone  por  si  misma. 
Este  mes  veremos  un  copiador  de  fiche- 
ros: el  COPYFILE.  Antes  de  que  alguien 
pregunte  me  apresuro  a contestar  que  sí, 
el  700  dispone  del  comando  COPY  cuyo 
cometido  es  precisamente  el  de  copiar 
ficheros.  El  problema  es  que  el  COPY  no 
puede  copiar  desde  una  unidad  de  discos  a 
otra,  sino  únicamente  entre  los  drives  de 
la  misma  unidad  o sobre  un  mismo  drive. 
La  razón  de  ello  es  que  este  comando  uti- 
liza como  “buffet”  de  trabajo  la  misma 
R AM  de  la  unidad  de  discos,  a la  que  se 
accede  desde  ambos  drives  siempre  dentro 
de  la  misma  unidad.  Para  copiar  entre 
: periféricos  diferentes  debería  haber  una 
función  que  traspasara  es  La  RAM  a través 
del  bus  IEEE  de  una  unidad  a otra,  fun- 
ción que  el  comando  COPY  no  tiene 
ímplementada. 

En  realidad  el  problema  no  seria  tal  si 
no  fuera  por  la  existencia  de  los  discos 
fijos  Winchester  (9060  y 9090),  No  es 
imprescindible  poder  copiar  programas  o 
ficheros  desde  una  unidad  de  diskettes  a 
otra  porque  siempre  se  pueden  poner  los 
dos  discos  en  la  misma  unidad,  uno  en 
cada  drive,  Pero  no  hay  manera  posible  de 
hacer  esto  con  los  discos  fijos  que,  como 
su  propio  adjetivo  indica,  son  inamovilbles. 

Así  que  se  vio  la  necesidad  de  elaborar 
un  programa  que  permitiera  volcar  in- 
formación hacia  o desde  los  discos  Win- 
chester. Y por  el  mismo  precio,  se  obtuvo 
una  segunda  ventaja:  poder  copiar  fiche- 
ros relativos  en  formato  de  DOS  2,5  a 
formato  DOS  2.7,  es  decir,  de  formato 
8050  a formato  8250.  Recordemos  que  los 
ficheros  relativos  tienen  una  diferencia 
entre  ambos  modelos  de  floppy-disk:  los 
segundos  pueden  ser  más  grandes  que  los 
primeros  gracias  a la  incorporación  del 
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“super  side  sector”,  lo  que  provoca  que 
estos  ficheros  no  sean  compatibles  entre 
sí. 

De  hecho,  el  programa  realiza  una  fun- 
ción bastante  simple:  leer  bytes  de  un 
drive  para  grabarlos  en  el  otro,  pero  su 
enorme  ventaja  es  que  esta  operación  se 
realiza  en  código  máquina,  o sea  a gran 
velocidad . Todo  programador  con  un 
mínimo  de  experiencia  con  Commodore 
se  habrá  confeccionado  alguna  vez  un 
programa  para  copiar  ficheros  secuencia- 
íes  o programas  de  una  unidad  a otra. 
Algo  parecido  a: 

10  DOPENtí  I , “ORlGEN”.DO,U8 
20  DOPEN#2.  “DESTINO”, DO, U9 
30  GET#1,AS  : IF  ST=2  l HEN  60 
40  PRIT#2,LEFT$(A$+CHR$(0),  I ): 

50  GOTO  30 

60  DOLOSE  U8  : DOLOSE  U9 

En  la  linea  40  puede  sorprender  la 
manera  de  grabar  el  byte,  pero  como  ya  he 
comentado  en  un  artículo  anterior,  el  leer 
mediante  GE  TU  un  byte  cuyo  valor  es 
cero,  la  cadena  de  recepción  (en  este  caso 
A$)  es  asignada  como  cadena  nula,  por  lo 
que  una  grabación  de  ésta  cadena  sería 
como  no  grabar  nada:  PRTNT#2,“”;. 
Efectuando  la  grabación  mediante  la  fór- 
mula LEFTS(AS  CT  IRSfO),  I)  nos  asegu- 
ramos que  va  a grabarse  el  CHR$(G)  en 
caso  de  que  la  cadena  sea  nula,  sin  afectar 
para  nada  cualquier  otro  valor  que 
pudiera  haberse  leído  en  A$  (sólo  se  graba 
un  carácter). 

Este  programa  Basic  resulta  lento  por 
dos  causas.  La  primera  es  que  precisa- 
mente está  hecho  en  Basic  interpretado. 
La  segunda  es  que  cada  lectura  y cada 
grabación  de  cada  byte  implica  la  aper- 
tura y cierre  del  bus  IEEE,  con  la  consi- 
guiente pérdida  de  tiempo.  CORVETEE 
soluciona  lo  primero  trabajando  en 
código  máquina,  y lo  segundo  operando 
con  toda  la  RAM  disponible  en  el  banco  I 
de  la  CPU  como  buffer  (unos  50  K bytes). 

Por  otra  parte  COPY  FILE  también 
permite  copiar  ficheros  relativos,  cuya 
copia  en  Basic  sería  un  poco  más  compli- 
cada que  el  programa  indicando  ante- 
riormente. 

Comentemos  un  poco  más  profunda- 
mente el  trabajo  de  COPYFILE.  En  ade- 
lante, al  hablar  de  “fichero  origen”  se 
entiende  por  el  fichero  que  se  desea 
copiar,  mientras  que  “fichero  destino”  es 
el  nuevo  fichero  creado  como  copia  del 


fichero  origen.  La  copia  no  puede  reali- 
zarse en  el  misino  drive,  sino  entre  drives 
diferentes  o entre  periféricos  diferentes, 
porque  el  fichero  destino  va  a llevar  el 
mismo  nombre  que  el  fichero  origen. 

Pueden  ser  copiados  tres  tipos  de 
fichero:  el  programa,  secuencia!  o rela- 
tivo. Los  dos  primeros  casos  son  tratados 
de  la  misma  manera,  salvo  en  la  apertura 
del  fichero  (uno  es  PRG  y el  otro  SEQ),  i 
Después  sólo  tiene  que  leer  bytes  del 
fichero  origen  guardándolos  en  el  buffer. 

Si  este  buffer  se  llena,  lo  vacía  en  el  fichero 
destino  y continúa  leyendo.  Cuando 
detecta  el  final  de!  fichero  origen,  graba  lo 
que  le  queda  en  el  buffer  sobre  el  fichero 
destino,  y los  cierra. 

El  fichero  relativo  tiene  algo  más  de 
complicación,  pues  interviene  el  concepto 
de  record.  En  primer  lugar  ha  de  averi- 
guar qué  longitud  tiene  el  record.  Y lo 
hace  de  una  manera  peculiar.  Utilizando 
un  bucle  FOR/NEXT  intenta  abrir  el  , 
fichero  asignando  cada  vez  una  longitud  j 
diferente  (déla  255).  Cuando  la  apertura 
no  emite  el  error  50, RECORD  NOT 
PRESENT  es  que  ha  encontrado  la  longi- 
tud correcta.  Este  “tanteo”  se  delata  por- 
que durante  unos  momentos  parpadea  el 
led  central  de  la  unidad  de  discos.  Una  vez 
abierto  el  fichero  no  queda  más  que  leer 
cada  record  del  fichero  origen  para  gra- 
barlo en  el  fichero  destino. 

He  descrito  el  núcleo  del  programa,  el 
trabajo  que  se  realiza  en  código  máquina. 
Lógicamente  se  ha  intentado,  utilizando  el 
Basic,  “adornar”  el  utilitario  para  hacerlo 
más  potente  y cómodo  de  utilizar 
COPYFILE  se  compone  de  dos  ficheros: 
COPYFILE  (programa  principal  en  Basic! 
y CQPY.CM  (rutina  en  código  máquina). 
Por  tanto,  quien  desee  copiar  este  utilita- 
rio de  un  disco  a otro  deberá  copiar 
ambos  ficheros. 

Para  poner  en  marcha  el  COPY  HILE 
basta  con  cargarlo  (DLÜAD“COPY- 
FILE”)  y ejecutarlo  (RUN).  Inmediata- 
mente la  rutina  COPY.CM  es  cargada  en  1 
memoria  para  su  utilización,  concreta- 
mente a partir  de  la  dirección  1024  ($0400 
en  hexadecimal)  del  banco  15.  El  COPY- 
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Ejemplo  del  COlJ  YtíLt  en  funcionamiento,  ¡ 'oto  P.  Mtiacats.  Diseño  Jar  di  Sastre. 


FILE  carga  el  COPY.CM  desde  el  dríve  0 
del  periférico  8,  Si  se  utilizara  el  programa 
desde  otro  dríve  o periférico,  deberá  cam- 
biarse la  línea  60  de  programa. 

COFYFILE 

Una  vez  en  marcha,  el  programa  pide 
en  primer  lugar  el  número  de  periférico  y 
drive  de  las  unidades  de  disco  que  van  a 
utilizarse  como  origen  y destino.  He  seña- 
lado antes  que  la  copia  no  puede  hacerse 
sobre  el  mismo  drive,  sino  entre  ambos 
drives  de  la  misma  unidad  o,  por 
supuesto,  entre  drives  de  diferentes  uni- 
dades de  disco. 

Una  vez  comprobada  la  validez  de  estos 
datos  pasa  a ofrecer  las  dos  opciones 
posibles  de  copia: 

1.  CON  VISUALIZACION  DE  DI- 
RECTORIO, 

2.  SIN  VISUALIZACION  (INTRO- 
DUCCION DIRECTA) 

La  primera  opción  explorad  directorio 
del  disco  origen  visualizando  en  la  panta- 
lla los  nombres  de  los  ficheros  que  va 
encontrando.  El  operador  debe  responder 
pulsando  la  teda  S en  los  ficheros  que 
desea  copiar,  y N en  tos  que  no.  Momen- 
táneamente los  ficheros  a copiar  son  mar- 
cados en  negativo  en  la  pantalla,  como 
puede  verse  en  la  Figura  1 (los  ficheros  a 
copiar  son  DISKMQN,  DISKMON.DR  y 
LUSKMON.  I~  E).  Cuando  el  programa  no 
encuentra  más  ficheros  en  el  disco  inicia  la 
copia  de  todos  los  solicitados.  En  la  pan- 
talla informa  en  cada  momento  del 
fichero  que  está  copiando  y del  status 
(DS$)  de  los  que  ya  ha  copiado,  por  si  se 
hubiera  producido  algún  error  de  lectura 
o grabación. 

La  segunda  opción,  de  introducción 


directa,  es  una  copia  instantánea  de  fiche- 
ros, Fs  decir,  el  programa  pide  un  nombre 
de  fichero,  el  operador  lo  escribe,  inme- 
diatamente este  fichero  es  copiado  y el 
programa  vuelve  a pedir  otro  nombre  de 
fichero  para  copiar.  Cuando  se  pulsa 
RETURN  o ESC  sin  escribir  ningún 
nombre  de  fichero,  el  programa  finaliza. 

Los  nombres  de  los  ficheros  a copiar 
deben  escribirse  con  todas  sus  letras,  es 
decir,  no  se  aceptan  las  máscaras  de  aste- 
riscos ni  interrogantes. 

COFYFILE  seguro  que  no  es  el  más 


espectacular  de  los  utilitarios,  aunque 
puede  que  sea  uno  de  los  más  útiles.  No 
solo  por  permitir  la  copia  de  ficheros  entre 
dos  unidades  de  discos  diferentes,  sino 
también  por  la  ya  comentada  traducción 
de  los  ficheros  relativos  de  formato  8050  a 
formato  8250,  y viceversa.  Por  otra  parle 
también  es  más  cómodo  elegir  los  ficheros 
a copiar  de  entre  una  lista  que  el  mismo 
ordenador  ofrece  a tener  que  teclear  toda 
una  secuencia  de  comandos  COPY,  con 
los  consiguientes  riesgos  de  errores  huma- 
nos v de  sintaxis. 
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Dos  jovenes  estudiantes  navarros,  Camilo  Revuelta  o Jñaki  Sán- 
i’liez.  ambos  de  3<J  de  Rl  ’P,  ganaron  d pasado  sábado  el  l Concurso 


de  Programación  celebrado  en  el  Colegio  Mayor  A yete  de  San 
Sebastián.  Participaron  en  él  una  treintena  de  estudiantes  proceden- 
tes del  País  Vasco  y Navarra, 

El  programa  que  presentaron  los  vencedores  — al  que  bautizaron 
con  e!  nombre  de  “El  barón  rojo1' — fue  elaborado  por  ellos  los  días 
anteriores  a la  celebración  del  Concurso,  en  las  instalaciones  del 
Club  de  Programación  Alaiz.  Sostuvieron  una  dura  ludia  con  los 
demás  programas  presentados,  en  especial  con  el  que  resultó  fina- 
lista, presentado  por  dos  estudiantes  de  Bilbao. 

El  C í > n c u rso  de  Programas  celebrado  fue  el  acto  final  del  Curso 
Intensivo  de  Programación  que  se  desarrolló  durante  la  semana  de 
Pascua  en  el  mismo  Colegio  Mayor  A yete.  Allí,  además  de  las  clases 
teóricas  y prácticas,  se  efectuaron  visitas  a distintos  centros  de  cál- 
culo, > en  especial  al  de  la  Esencia  Técnica  Superior  de  Ingeniería 
Industrial  de  San  Sebastián,  donde  algunos  profesores  explicaron  su 
funcionamiento  y mostraron  varios  programas  ya  realizados.  El 
ultimo  día  del  curso,  un  jurado  compuesto  por  varios  especialistas  y 
profesionales  donostiarras  otorgó  el  primer  premio,  consistente  en 
un  ordenador  personal,  a los  ya  mencionados  navarros  Camilo 
Revuelta  e Ignacio  Sánchez.  Patrocinaba  el  curso  Comercial  Noain, 
Imagen  y Sonido. 
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En  este  artículo  nos  despedí* 
tilos  de  nuestro  viejo  amigo,  ei 
programa  Catalog  que  hemos 
visto  crecer  y desarrollarse  a lo 
largo  de  estos  últimos  meses.  En 
el  proceso,  conoceremos  unas  sen- 
tencias nuevas:  Lnput,  If...  Then  y 
Restore. 


la  Muca  58  asegura  que  la  variable-contador 
contenga  un  0 antes  de  iniciar  la  cuenta.  Esto  se 
llama  la  inicialización  de  una  variable.  Aunque  el 
Basic  normalmente  inicial  iza  las  variables  en  cero 
automáticamente,  a veces  resulta  necesario  inicia- 
hzar  una  variable  a un  valor  que  no  sea  el  cero.  La 
inicialización  de  la  variable  asegura  que  contenga 
el  valor  necesario.  Resulta  siempre  útil  seguir  este 
método. 

En  d caso  de  una  variable  de  “strings'’  (es 
decir,  una  variable  que  contiene  caracteres  en  vez 
de  números),  el  064  inicial  iza  la  variable  como 
un  nulo,  que  está  completamente  vado;  tiene  una 
longitud  de  cero. 

Sin  embargo,  un  blanco  ocupa  un  espacio  y 
tiene  una  longitud  de  uno.  No  confundas  un  nulo 
con  un  blanco.  Y ahora,  volvamos  al  contador. 

La  linea  62  es  el  contador.  Cuando  se  ejecuta 
esta  línea,  el  ordenador  añade  1 a X,  el  valor  con- 
tenido en  el  archivo. 

La  linea  80  fue  reemplazada  por  una  nueva 
linea  80,  que  contiene  una  sentencia  lid.  Then. 
Esta  linea  comprueba  para  ver  si  el  contador  ha 
llegado  a 10,  si  existen  10  entradas  listadas  en 
pantalla. 

Si  sigue  siendo  menos  de  LO,  se  vuelve  a la  línea 
60  para  imprimir  otra  entrada  en  el  listado  del 
catálogo.  Si  ha  llegado  a 10,  se  pasa  directamente 
al  siguiente  juego  de  instrucciones  sin  imprimir 
nada  más  en  esta  página. 


En  los  tres  primeros  artículos  de  esta  serie 
hemos  hablado  de  algunas  de  las  bases  de  pro- 
gramación para  el  C-64  Ahora,  vamos  a estudiar 
la  forma  de  controlar  mejor  el  programa  Catalog, 
que  hemos  estado  desarrollando.  Si  no  has  leído 
los  tres  primeros  artículos,  el  listado  1 presenta  el 
programa  en  su  estado  actual. 


Se  inicia  la  Cuenta  de  Atrás 


Primero,  hablaremos  del  uso  de  una  variable 
como  la  forma  de  contar  el  número  de  veces  que 
hemos  realizado  una  operación. 

Cuando  se  asignan  variables  en  un  programa, 
siempre  se  debe  de  utilizar  la  misma  variable 
como  contador,  para  evitar  desperdiciar  memoria 
almacenando  muchas  variables  que  no  se  volve- 
rán a utilizar.  Esta  variable-contador  puede  reci- 
bir cualquier  nombre,  pero  para  este  programa, 
utilizaremos  X.  Para  que  X pueda  realizar  esta 
función,  usamos  esta  sentencia  de  asignación: 
LETX=X-bl. 

A partir  de  ahora,  cada  vez  que  se  utilice  la 
sentencia  de  asignación,  será  sumando  I al  valor 
almacenado  en  el  archivo  llamado  X en  la  memo- 
ria. Esta  sentencia  Basic  realmente  significa,  "'Que 
el  valor  almacenado  en  X sea  igual  al  valor  alma- 
cenado en  X más  12’  Utilizaremos  un  contador  en 
el  programa  Catalog  para  limitar  el  número  de 
entradas  a grupos  de  diez  en  el  listado  del  catá- 
logo que  aparece  en  pantalla.  Esto  nos  permite 
disponer  de  más  de  diez  entradas  almacenadas  en 
las  sentencias  Data  sin  rebasar  los  límites  de  la 
pantalla.  Cada  grupo  de  diez  entradas  listadas  en 
pantalla  será  llamado  una  página.  Teclea: 

58  LET  X=0 

62  LET  X=X+1 

80  IF  X<  10  THEN  GOTO  60 


Una  Excursión  en 
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Si  queremos  que  el  ordenador  se  cornu- 
ñique  con  nosotros  después  de  haber 
listado  las  diez  entradas  (para  preguntar- 
nos si  queremos  seguir  viendo  el  listado  o 
simplemente  terminar),  tenemos  que  estu- 
diar la  instrucción  Input, 

La  instrucción  Input  le  indica  al  C-64 
que  le  haga  una  pregunta  al  usuario  y que 
acepte  la  respuesta  desde  el  teclado.  Este 
constituye  un  comando  potente  para  la 
programación  de  programas  tipo  pregun- 
ta/respuesta, además  de  poder  ser  utili- 
zado en  juegos  controlados  desde  el 
teclado.  Un  nivel  de  programación  más 
avanzado  demostrará  que  la  instrucción 
Input  también  puede  ser  utilizada  con 
ficheros. 

Un  mensaje  le  indica  al  ordenador  que 
le  llaga  una  pregunta,  o que  te  pida  que 
pulses  una  tecla.  (Por  ejemplo,  "INTRO- 
DUCE RESPUESTA:’1  o “PULSA  S 
PARA  SI,  N PARA  NO11), 

En  el  caso  de  nuestro  programa.  Pode- 
mos hacer  que  el  ordenador  nos  dé  el 
siguiente  mensaje: 

"¿QUIERES  VER  LA  SIGUIENTE 
PAGINA  (S/N)r 

Dado  que  la  pregunta  requiere  un  carác- 
ter u caracteres  específicos  como  res- 
puesta (S  o N),  hay  que  presentar  las 
opciones  junto  con  la  pregunta;  por  ejem- 
plo, el  Ll(S/N)”  de  la  instrucción  de  Input. 

La  instrucción  Input  funciona  con  o sin 
un  mensaje  Si  el  mensaje  resulta  ser  muy 
largo,  tal  vez  ocupando  más  de  una  línea 
en  la  pantalla,  se  utiliza  una  sentencia 
Print  para  colocar  el  mensaje  en  pantalla. 
Entonces,  en  la  línea  siguiente,  se  utiliza  la 
instrucción  Input  para  conseguir  la  res- 
puesta desde  el  teclado. 

Si  se  imprimiera  la  pregunta  como  una 
sentencia  distinta,  como  haríamos  en  caso 
de  una  pregunta  larga,  y a continuación 
especificáramos  solamente  una  entrada 
que  nos  incluyera  la  pregunta  que  se  hace, 
el  ordenador  contestaría  con  el  signo  ? 

La  insirucción  Input  puede  ser  utilizada 
igual  que  una  sentencia  Print;  sólo  hace 
falta  colocar  el  mensaje  dentro  de  comi- 
llas, y el  ordenador  hace  la  pregunta  y 
espera  la  respuesta  dentro  de  una  sola 
sentencia. 

Si  se  especifica  el  mensaje  como  parte 
de  la  instrucción  Input,  el  ordenador  pre- 
senta la  pregunta  y el  signo  ? en  pantalla. 

Es  importante  recordar  que  aparece  la 
interrogación  (?)♦  El  ordenador  no  sabe  si 
el  mensaje  incluye  una  interrogación, 
especificada  entre  comillas,  y colocaría  su 
propia  interrogación  al  final  del  mensaje. 
Por  lo  tanto,  tendríamos  dos  interroga- 
ciones; no  exactamente  lo  que  estábamos 
buscando. 

En  cualquier  caso,  el  cursor  intermi- 
tente aparece  detrás  del  mensaje.  De  esta 
forma  el  ordenador  nos  indica  que  está 
esperando  una  respuesta. 

Utilizaremos  el  método  que  incluye  la 
pregunta  dentro  de  la  sentencia  Input. 
Tenemos  que  dejar  que  se  imprima  una 
linca  en  blanco  antes  de  hacer  las  pregun- 
tas. Teda: 

84  PRINT 


85  INPUT  “QUIERES  VER  LA  PAGI- 
NA SIGUIENTE  (S/NT;  KB$ 

Vamos  a estudiar  el  sintaxis  (la  forma 
de  especificar  una  sentencia)  de  la  senten- 
cia Input. 

Observa  la  forma  en  que  utilizamos  las 
comillas  para  especificar  la  pregunta. 
Observa  también  cómo  colocamos  un 
punto  y coma  (;)  y un  nombre  de  la  varia- 
ble de  “siringa*7  detrás  de  la  pregunta.  El 
ordenador  imprime  el  carácter  o caracte- 
res entre  las  comillas  como  el  mensaje  que 
aparece  en  pantalla,  seguido  de  una  inte- 
rrogación y el  cursor  intermitente.  La  res- 
puesta proporcionada  por  el  usuario  se 
coloca  en  la  variable  especificada  detrás 
del  punto  y coma.  En  este  caso  es  KBS. 

Utilizaremos  KB$  como  una  variable 
estandard  para  entradas  como  esta,  que 
controlan  el  flujo  del  programa.  Proba- 
blemente no  se  volverá  a utilizar  el  valor 
Ktí$,  así  que  no  tiene  mucho  sentido 
reservar  un  archivo  separado  en  la  memo- 
ria para  una  cosa  provisional.  KB$  resulta 
útil  dado  que  implica  el  uso  del  teclado; 
KBS  constituye  una  entrada  provisional 
desde  el  teclado.  (Kev  Board— Teclado). 

Las  entradas  no  tienen  por  qué  limitarse 
a los  “st rings”.  Se  puede  pedir  una  res- 
puesta numérica. 

Se  pueden  solicitar  datos  múltiples  uti- 
lizando la  misma  sentencia  Input.  Por 
ejemplo,  se  puede  utilizar  un  mensaje 
como  “ENTRA  MES,  DIA,  ANO  (MM, 
DD,  AA).’\  Esta  entrada  podía  ir  seguida 
de  las  variables  M,  D,  y A. 

I ,a  primera  respuesta  introducida  desde 
el  teclado  será  introducida  en  la  variable 
M;  la  segunda  en  la  D;  y la  tercera  en  la  A. 
Todas  las  respuestas  se  pueden  introducir 
a la  vez  tecleando:  4,  15,  84,  para  contes- 
tar al  mensaje.  Las  comas  sirven  como 


delimitadores  (separadores)  y el  4 se 
coloca  en  la  M,  el  15  en  la  D y el  84  en  la 
A. 

También  se  puede  utilizar  una  respuesta 
en  forma  numérica  y en  forma  de 
“strings"  en  una  sola  entrada;  por  eiem- 
plo.  “ENTRA  NOMBRE,  EDAD,”  Las 
variables  utilizadas  podrían  ser  NMS  y E. 
La  sentencia  Input  tendría  la  siguiente 
Forma: 

956  INPUT  “ENTRA  NOMBRE, 
EDAD”;  NMS,  E 

La  respuesta  proporcionada  desde  el 
teclado  sería: 

JOSE  LOPEZ,  15 

Si  la  respuesta  se  entrara  de  forma  inco- 
rrecta como: 

15,  JOSE  LOPEZ 

NMÍE  contendría  los  caracteres  1 y 5 ó 

m 

15.  Esto  funciona  dado  que  el  I y el  5 
también  son  caracteres  además  de  ser 
números.  Sin  embargo,  cuando  el  ordena- 
dor intentó  introducir  los  caracteres 
“JOSE  LOPEZ"  cn  la  variable  numérica 
E,  se  produjo  un  error.  El  ordenador 
imprime  7REDO  FRÜM  START. 

En  el  caso  de  nuestro  programa  Catá- 
logo se  ve  fácilmente  que  el  ordenador 
espera  una  respuesta  de  S ó N.  La  senten- 
cia Input  se  explica  ampliamente  en  las 
páginas  45-57  del  “Manual  del  1 Isuariodel 

Commodorc  64". 

Si  nuestra  pregunta  requiere  unas  res- 
puestas específicas,  como  S para  sí.  o N 
para  no,  tenemos  que  incluir  una  verifica- 
ción de  error  para  asegurarnos  de  que  se 
introduzcan  solamente  las  respuestas  soli- 
citadas. En  el  caso  de  nuestro  programa 
Catalog,  queremos  asegurarnos  de  que  la 
respuesta  sea  un  S o un  N. 

Si  la  respuesta  no  es  ni  S ni  N.  tenemos 
que  repetir  la  pregunta  y solicitar  una  res- 
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puesta  de  nuevo.  La  sentencia  Lf  para  esto 
resulta  un  poco  más  complicada  que  las 
que  hemos  utilizado  hasta  ahora,  dado 
que  tenemos  que  comprobar  más  de  una 
condición  (es  una  S o es  una  N7). 

lf...  Then 

Para  comprobar  más  de  una  condi- 
ción, se  utiliza  la  sentencia  HL.  Then 
igual  que  se  hace  para  una  condición  sen- 
cilla, pero  añadiremos  una  operación 
Lógica  And  o una  operación  Or  a la  sen- 
tencia. 

Se  utiliza  una  operación  lógica  And 
cuando  las  dos  condiciones  que  se  están 
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comprobando  tienen  que  ser  verdad.  Se 
Utiliza  Or  cuando  solamente  una  de  las 
condiciones  tiene  que  ser  verdad.  Se  puede 
utilizar  más  de  una  operación  And  o una 
Or  en  una  sentencia  lf.„  Then. 

Las  sentencias  Tf.,.  Then  que  lleven 
varios  And  y Or  a veces  resultan  difíciles 
de  entender,  así  que,  de  momento, 
utilizaremos  solamente  una  And  o Or  en 
una  sentencia  lf.*.  Then.  Podrás  utilizar 
unas  condiciones  más  complicadas  cuando 
hayas  practicado  un  poco  con  las  operacio- 
nes And  y Or. 

Como  esto  tiene  que  ver  con  el  pro- 
grama Catalog,  sólo  queremos  volver  a 
preguntar  si  la  respuesta  es  S o N.  Para 
hacer  esto  se  introduce; 


86  llr  KB$<>‘íT  and  KBíO“N' 
THEN  GOTO  85. 

Recuerda  que  si  se  está  comprobando 
una  variable  de  *lst rings'’  hay  que  especi 
liear  lo  que  se  está  comprobando  entre 
comillas.  Los  datos  especificados  entre 
comillas  reciben  el  nombre  de  constante  o 
literal.  Si  la  variable  es  numérica,  se  pue- 
den seguir  utilizando  los  literales;  serán 
simples  números  en  vez  de  “"si rings"  y no 
serán  especificados  entre  comillas. 

Para  este  tipo  de  comprobación,  no 
tenemos  que  utilizar  los  literales  para 
realizar  una  comparación;  se  puede  utili- 
zar una  variable.  Sin  embargo,  para  esta 
aplicación  específica,  sabemos  que  la  res- 
puesta de  la  pregunta  tiene  que  ser  sola- 
mente S o N,  por  lo  tanto  se  usan  literales. 

En  el  caso  de  esta  comprobación,  igual 
que  en  el  caso  de  la  sentencia  lf..,  Then  en 
la  linca  80,  si  la  condición  especificada 
detrás  de  la  sentencia  lf  es  verdad,  el  Pro- 
grama realizará  lo  que  se  haya  especifi- 
cado detrás  de  la  sentencia  Then  en  la 
misma  línea.  Si  la  condición  especificada 
detrás  de  la  sentencia  IT  NO  es  verdad,  el 
Programa  continuará  a la  siguiente  línea  e 
ignorará  la  sentencia  detrás  de  la  senten- 
cia Then, 

Una  vez  que  sepa  el  ordenador  que  la 
respuesta  es  una  letra  correcta,  se  le  indica 
lo  que  hay  que  hacer  para  ver  otra  página 
o simplemente  terminar.  Si  se  contesta  Si 
— es  decir,  que  el  usuario  quiere  ver  otra 
página—  hay  que  borrar  la  pantalla  y 
representar  la  siguiente  página  del  listado. 

Dado  que  queremos  imprimir  el  enca- 
bezamiento, tenemos  que  volver  a enviar 
el  programa  a la  línea  30.  Se  borrará  la 
pantalla,  se  imprimirán  los  encabezamien- 
tos y las  diez  entradas  siguientes  de  las 
sentencias  Data  serán  leídas  e imprimidas. 

Ten  en  cuenta  que,  al  incluir  Ja  línea  (>5* 
hemos  tenido  en  cuenta,  que  podemos 
quedarnos  sin  dados  para  imprimir. 

Si  se  contesta  No  —que  no  queremos 
ver  más — podemos  sallar  a una  sentencia 
al  final  del  programa.  Quedaría  mejor 
borrar  la  pantalla  al  terminar  la  opera- 
ción* 

Para  llevar  a cabo  estas  dos  comproba- 
ciones, se  teclean  estas  líneas; 

88  IF  KB3="S"  THEN  GOTO  30 

89  1F  THEN  GOTO  100 

J 00  PRINT  “[Shift-CLR/HOM  E]7  END. 

Antes,  la  línea  89  había  apuntado  a la 
línea  100*  y esta  línea  todavía  no  existía,  y 
la  hemos  tenido  que  añadir.  Contiene  el 
comando  Print  para  horrar  la  pantalla,  y 
pone  fin  a la  ejecución  del  programa. 


Comando  Restore 

Sería  muy  útil  poder  repasar  nuestra 
lista  de  juegos  simplemente  contes- 
tando S cuando  el  ordenador  pregunta  si 
queremos  ver  la  siguiente  página. 

De  esta  forma,  sí  la  última  página  no 
contuviera  diez  entradas,  nos  sería  útil 
poderle  decir  al  ordenador  que  volviera  a 
iniciar  la  lista  para  llenar  el  resto  de  la 
última  página. 

El  comando  Restore  hace  que  todo  esto 
sea  posible.  Devuelve  el  puntero  al  princi- 


pió  de  las  sentencias  Data  y permite  que  el 
programa  empiece  a leer  desde  el  princi- 
pio con  la  siguiente  sentencia  Read.  La 
sentencia  Restore,  en  si,  no  lee  nada.  Su 
función  es  la  de  desplanar  el  puntero  en  la 
memoria  para  que  el  usuario  pueda  tener 
acceso  a todas  las  sentencias  Dala  de 
nuevo. 

Se  habla  del  comando  Restóte  en  la 
página  125  del  Manual  del  Usuario  dd 
Commodore  64. 

¿Dónde  utilizaremos  el  comando  Res- 
tore en  nuestro  programa?  Si  estuviéra- 
mos haciendo  este  listado  a mano,  en  qué 
momento  tendríamos  que  volver  a hacerlo. 
Volveríamos  al  principio  de  la  lista  al 
encontrar,  a través  de  la  comprobación  en 
la  linca  65,  que  no  nos  quedan  datos  para 
leer  al  final  de  las  sentencias  Data. 

Vamos  a añadir  un  comando  Restore  a 
la  linca  90  en  vez  del  comentario  que  lleva, 
dado  que  queremos  terminar  el  bucle 
solamente  al  contestar  N,  es  decir  que  no 
queremos  ver  la  siguiente  página. 

Vamos  a colocar  un  GOTO  detrás  del 
comando  Restore  para  obligar  la  conti- 
nuación del  listado  hasta  dar  la  respuesta 
N.  Esto  se  llama  un  GOTO  incondicional. 

Se  emplea  el  término  incondicional  si 
siempre  se  realiza  la  misma  operación  al 
llegar  a una  sentencia.  Si  existiese  un 
motivo  para  hacer  algo  o un  motivo  para 
no  hacerlo  (como  en  la  línea  65),  se  dice 
que  el  GOTO  es  condicional. 

t!  GOTO  de  la  línea  65  es  condicional  y 
el  GOTO  de  la  linea  91)  es  incondicional. 

Vamos  a realizar  las  siguientes  modifi- 
caciones ai  programa: 


El  Centro  piloto  “Guadiana"  es  un  colegio  publico  de  EGB 
en  el  que  se  está  introduciendo  la  informática  a partir  del  BASIC,  utilizando 

5 VIG-20  comprados  con  las  200.000  pesetas  otorgadas 
por  el  Ministerio  al  centro  para  fines  educativos. 

Van  a realizar  unas  colonias  de  verano  amena  y participad  va.  Son  cursos  en 

que  pueden  ser  de  interés  a algún  lector  nentementc  prácticos  — un  ordenad 
de  la  revista,  Tstas  colonias  se  realizaran  por  cada  tres  niños  en  las  ciases  de  le 
durante  el  mes  de  julio  y además  de  con-  guaje  y un  ordenador  para  cada  d 
tar  con  las  actividades  tradicionales  de  niños  en  las  prácticas. 

unió  colonias  de  vacaciones  como  Dado  el  gran  esfuerzo  que  ha  supues 

acampadas,  deportes  ( incluido  nal  a-  organizar  estos  cursos,  no  se  van  a lin 
cion),  excursiones  convivencias  juegos  ta*a  }Q$  alumnos  díH  cenlrc  sino  que 

de  interior,  etc,  han  programado  dos  ha  hccho  una  convocatoria  abierla  (se 
actividades  que  han  tenido  gran  acepta-  se  ha  hechü  piiblica  cn  ExLremadur; 

aon;  un  curso  de  BASIC  y actividades  ^os  curst)S  organizados  con  la  colat 
de  granja.  Estas  colomas  tendrán  lugar  ,ip  ^aia  de  Ahorros  de  Bat 

granja- escuela  que  cuenta 


en  una  granja- escuela  que  cuenta  con  . ^ 

instalaciones  especialmente  indicadas 
para  este  tipo  de  actividades  (piscina,  ■ . 

campos  de  deporte,  alojamiento,  salo-  ¡odo 
nes,  etc),  y un  personal  titulado  que  se 
encargará  de  actividades  de  granja  ^ — 

apropiadas  para  una  colonia  de  vaca-  ■ 

ció  nes  (apicultura,  injertos,  etc.).  ¡I  t 

En  cuanto  al  curso  de  BASIC,  será  ^ 
impartido  por  profesores  que  tienen  Si 

experiencia  en  enseñar  BASIC  a niños  Worl 

de  EGB,  y lo  hacen  de  una  forma  muy  más  i 

Señor  Director  del  Centro  Piloto  “Guadiana 
Avdii,,  República  Dominicana,  s/n. 


90  GOTO  60 

! lay  que  volver  a la  línea  60  dado  que  el 
programa  tiene  que  recoger  datos  de  la 
lisia  de  las  sentencias  Data.  Vamos  a 
hacerlo  paso  a paso  para  comprobar  si 
esto  es  correcto. 

En  la  linea  60  los  encabezamientos  apa- 
rean en  pantalla,  y posiblemente  hay  más 
dalos.  Después  de  que  se  hayan  leído  los 
datos  siguientes,  la  linea  65  comprueba 
para  ver  si  coinciden  con  — 1,  End  OI’  lile 
(EOF).  Si  estos  dalos  finales  son  falsos,  se 
pasa  a la  línea  90. 

La  linea  90  desplaza  el  puntero  en  las 
sentencias  Data  hasta  el  principio,  ¡Ahora 
viene  lo  más  dillcif  Si  se  hubiera  vuelto  a 
la  línea  7(1  en  vez  de  a la  línea  60,  se 
imprimiría  —I  para  la  cinta  y EOF  para  el 
nombre  del  programa.  Hay  que  volver 
atrás  para  leer  los  próximos  datos  a ser 
imprimidos  a partir  del  principio  de  la 


Teléf,:  924-250614 


EDITORIAL  DE 


INTERESADA 


EN  PUBLICAR  Y 


Vamos  a añadir  unas  cuantas  sentencias 
Data  más  al  programa,  para  asegurarnos 
de  que  haya  más  de  diez  grupos  de  dalos 


PROGRAMAS 


PARA  ORDENADORES  PERSONALES 
(COMMODORE  64,  SPECTRUM,  etc.) 


Como  siempre,  con  un  programa  nuevo 
o en  desarrollo,  es  importante  salvar  el 
programa  en  disco  o en  cinta  antes  de  que 
se  comprueba.  Si  existe  un  error  que  nos 
obliga  a apagar  el  ordenador,  no  habrá 
ningún  problema  dado  que  se  carga  el 
programa  y se  corrige  el  error. 

Ahora,  ejecuta  el  programa  para  ver  lo 
bien  que  el  C-64  sigue  nuestras  instruccio- 
nes (el  listado  2 presenta  el  programa 
Catalog  terminado). 


LLAMAR  AL  TELEFONO  (93)  215  69  52 
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Este  programa  te  llevará 
en  un  viaje  inolvidable 
hacia  las  profundidades 
subterráneas,  donde  reside 
una  raza  de  extraterrestres 
empeñados  en  cazarte. 


V1C-20 

064 


El  programa  “Los  Peligros  d el 
Pozo’1  presenta  una  persecución 
animada  a través  de  las  profundida- 
des  subterráneas  de  un  planeta  que  tu 
elijas.  Al  viajar  a toda  velocidad  en  tu 
nave  espacial  a través  de  un  pozo  muy 
extraño,  tienes  que  intentar  sobrevivir 
al  ataque  de  unos  extraterrestres  agre- 
sivos.  Tú  utilizas  el  “joystick"  para 
trasladar  la  nave  de  un  lado  para  otro 
mientras  que  el  pozo  de  la  mina  y los 
extraterrestres  pasan  volando. 

Tú  puedes  elegir  eí  nivel  de  dificul- 
tad, la  velocidad,  la  anchura  del  pozo 
y el  número  de  extraterrestres.  ¿Pero 
de  dónde  han  salido  lodos  estos  ene- 
migos y naves  especiales? 


La  mayoría  de  los  juegos  escritos 
para  los  Commodore  aprovechan  al 
máximo  su  variado  juego  de  caracte- 
res. ¿Pero  qué  sucede  cuando  necesi- 
tas algo  que  no  está  disponible,  como 
una  nave  espacial  o un  extraterrestre, 
repugnante,  por  ejemplo? 


De  ROM  a RAM 

Afortunadamente,  los  Commodore 
te  permiten  volver  a definir  com- 
pletamente el  niego  de  caracteres 
solamente  por  la  cantidad  de  memo- 
ria disponible.  Cuando  tú  pulsas  una 
tecla,  el  ordenador  busca  información 
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en  la  ROM  (Memoria  de  sólo  Lec- 
tura) sobre  la  manera  de  formar  el 
carácter  que  será  representado. 

Tu  seguramente  sabrás  que  no 
existe  un  método  para  escribir  en  la 
ROM,  y por  Jo  tanto  se  supone  que  no 
hay  un  modo  para  intercambiar  la 
información  de  caracteres.  Hasta  allí 
es  correcto.  Sin  embargo,  existe  una 
forma  de  indicarle  al  micro  que  no 
busque  los  datos  de  los  caracteres  en 
la  ROM,  sino  que  verifique  las  direc- 
ciones de  la  ROM  que  tii  elijas. 

En  vez  de  dirigirse  directamente  a 
la  ROM,  el  ordenador  normalmente 
busca  en  una  dirección  de  la  RAM 
(32869  en  el  VIC)  para  saber  dónde  se 
encuentra  la  tabla  de  caracteres. 
Cuando  se  enciende  el  ordenador,  la 
ROM  carga  el  valor  de  240  en  esta 
dirección,  que  apunta  las  direcciones 
correctas  de  la  ROM  en  busca  de  la 
información  de  caracteres.  El  ordena- 
dor siempre  se  dirige  al  mismo  lugar 
para  buscar  los  datos,  a no  ser  que 
otro  numero  se  introduzca  en  esa 
dirección  mediante  un  “Poke’\ 

De  hecho,  este  valor  puede  ser 
modificado  a través  del  teclado.  Si  se 


Este  juego  puede 

resultar  tan 
sencillo  o tan 
complicado 
como  tú  quieras. 

Pero  se 

garantiza  que  el 

nivel  de 
dificultad  más 
alto  resulta 
imposible. 


pulsa  la  tecla  Commodore  y la  tecla 
“shift”  a la  vez,  el  ordenador  pasará 
de  la  modalidad  de  mayúsculas  y grá- 
ficos a la  de  mayúsculas  y minúsculas, 
Entonces  la  dirección  32869  (en  el 
VIC)  contendrá  242  en  vez  de  240. 
Esto  también  se  puede  realizar  a tra- 
vés de  la  modalidad  de  comandos. 
Inténtalo, 

¿Te  haces  a la  idea?  También  es 
posible  introducir  otro  número  en 
dicho  registro,  y hacer  que  no  busque 
en  la  ROM,  sino  en  la  RAM,  donde  tú 
has  situado  la  información  sobre  el 
juego  de  caracteres  que  tú  has  elegido. 

Pero  primero  tienes  que  proteger  la 
RAM  de  la  interferencia  del  programa 
bajando  el  final  de  la  memoria.  Esta 
operación  se  realiza  en  las  líneas  60-70 
(Dado  que  estos  punteros  lian  sido 
modificados,  no  es  posible  utilizar  el 
programa  “Los  Peligros  del  Pozo"'  con 
un  VlC-20  con  una  ampliación  de 
memoria). 

El  procedimiento  normal  para  pro- 
ducir unos  juegos  de  caracteres  defi- 
nidos por  el  usuario  es  copiar  primero 
toda  la  información  existente  sobre 
los  caracteres  en  la  nueva  dirección  de 
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IiRTR  195,195..  69  , 60  , 24 , 24 , 60  , 24 
DFlTfl255 , 1 29  , 1 89 , 165.-1 65 , 1 89  , 1 29 , 


T=S  ■ Fll  = 10 

F0RN=1  TÚ 
PRIHTSÍ<4 


TQ  23 

< 4 > : 3PC  < 1 4 > Sí  < 3 > í PR  I NT " 


NEXTN 

GOTO600 


540  D*IHTÍRND<1J#2)+1 


..J=IHTÍRHD<l)#flL)  + l 
IFJ02THEN  GOTO  620 
Fñ=INT<RHDC 1 >#3>+l : Ffl=Fñ#D 
F4=T+INT CN/2J+FA 
IF  F4>T+W  OR  F4CT  GOTO620 

IF  F4=PP  GOTO620 
POKEÜ3+F4,0 


Lisiado  VIC -20 


t0  REM  *************** 

20  REM  '*  '* 

30  REM  * EL  POZO  * 
40  REM  * * 

50  REM  a#*#****####**# 

60  P0KE52,23 
70  P0KE56 , 28 
80  MMSÍ<18> 

90  F0RM-1T018 

100  Sí(H)=" " 

110  FÜRN2=t  T0  H 
120  S*<N>=SÍ<N)+">" 

130  HEXTN2 

140  NEXTN 

150  PRIHT“tCLR3u 

160  GOSUB850 

170  P0KE36869,  255 

180  F0RI=7168  TO  7679 

190  POKEI , PEEKÍ 1+25600) 

200  NEXTI 

210  F0RM*7168  TQ  71.75 
220  REflDH 
230  POKEN , H 

240  NEXTN 

2e¡0  F0RM=7432  TO  7439 
260  REFIIIH 
270  POKEN, H 
280  NEXTH 

290  F0RN=7664  TO  7671 


290  FORH-76' 
300  REfiDH 
310  POKEN, H 
320  HEXTN 


Pasa  a página  siguiente 


LOS  PELIGROS  DEL  POZO 


la  RAM.  1 -sta  operación  proporciona 
una  versión  no  modificada  de  los 
caracteres,  en  case?  de  que  tú  decidas 
utilizar  algunos  de  los  alfa  numéricos 
o gráficos  normales,  1:1  ordenador  no 
puede  ir  saltando  entre  la  ROM  y la 
RAM  en  busca  de  la  información 
sobre  los  caracteres,  así  que  resulta 
necesario  porporcionar  un  juego  de 
caracteres  completo  para  su  uso  en  la 
RAM. 

La  operación  de  copiar  se  realiza  en 
un  bucle  For..,Next,  comenzando  en 
la  línea  180  en  el  VIC  y 100  en  el  C-Ó4. 
Los  valores  de  los  caracteres  de  la 
ROM  se  introducen  en  la  RAM. 

Una  vez  copiados  estos  valores,  se 
pueden  cambiar  unos  cuantos.  Lstc 
programa  hace  uso  de  unos  caracteres 
no  necesarios,  como  los  signos  @,  ! y 

fistos  se  encuentran  (en  las  nuevas 
direcciones  de  la  RAM)  en  grupos  de 
ocho  bytes. 


Construcción  de  los  caracteres 

Los  caracteres  se  construyen  en  una 
matriz  de  ocho  por  ocho.  Cada  bit 
de  un  byte  representa  un  pixcl  en  una 
fila  determinada.  Cada  uno  de  los 
ocho  bytes  representa  una  fila  com- 
pleta. Podría  resultar  más  fácil  ver 
cómo  se  construye  cada  uno  de  los 
caracteres  especiales.  La  construcción 
de  la  nave  especial  se  presenta  en  la 

figura  L 


¿Puedes  ver  la  forma  de  la  nave  en 
dicha  matriz?  Los  bytes  para  el  ex t ra- 
le rrest re  y para  las  paredes  del  pozo 
de  la  mina  se  presentan  en  tas  figuras 
2 y 3,  respectivamente. 

Los  números  decimales  que  apare- 
cen en  la  columna  de  la  derecha  de 
cada  figura  se  calculan  al  convertir  los 
números  binarios,  y se  listan  en  las 
sentencias  Oata  del  Programa  (lineas 
460-480  en  el  VIC,  480-500  en  el  C- 
64),  Cada  linca  Dala  contiene  los 
bytes  para  una  figura  distinta.  I os 
números  pueden  ser  modificados  para 
cambiar  la  forma  de  los  caracteres.  El 
programa  realiza  este  cambio  leyendo 
los  dalos  e introduciéndolos  mediante 
un  LtPoke"  en  las  direcciones  de  la 
RAM. 

Una  vez  iníeialízado  un  nuevo 
juego  de  caracteres,  aparecerá  el 
carácter  nuevo  en  vez  del  antiguo  al 
pulsar  el  signo  !,  @ ó^  . 


llene  de  página  amerior 

620  Pfe*F4sIFD»2THEHD*-l 
630  IF  T+W+D>18  GDTO660 
64 0 IF  T+DC1  GÜTÜ660 
650  T-T+D 
660  GOSUB720 
670  POKEVÜZ  .■  0 

680  PRINTSÍ ÍT) ; SPC ( U ) Sí í 2 1 -W-T > : 

690  PRINT " " 

700  PÜKEVQZí  VI 

710  G0TO540 

720  ijQSUB  1110 

730  FOfi  0=1  TO  3P : NEXT  O 

740  P0KEU i +R 1 , 32 

750  IF  S2=~l  THEH  A1=A1-1 

760  IF  S3=-l  THEN  Fll=ñl  + 1 

770  IF  RKÍ  THEH  fll  = l 

780  IF  Rl>21  THEH  fil=2I 

790  LF=PEEKÍU2+fll > : IF  LF=32  GQT0823 

800  IF  LF=33  G0TO820 

810  G0SUB 1160 

820  P0KEU2+A 1 , 33 

830  PQKEU2+A1 > 33 

840  PETURH 

850  PR I HT " [ CLR 1 1 2CRSRB 3 t BLU 3 “ 

860  PR I HTTRE  < 7 > " [ RVSON 3 EL i SPC 3 POZO 

I2CRSRB] 

II 

370  PR I NTTRB  < 2 > " QUE [ SPC  3 VELOC IDADÍ SPC 3 

PflRÑ  ^ cpgpjii  ] m 

880  PR I HTTflB ( 2 > “EL  [ SPC  3 TUNEL? C CRSRB 3 

II 

8R0  PRINT TRBí2> " [RVSON 3 [RED 3 1 [RVS0FF3 
[BLU3=RRPIDQ[3PC3fl[SPC3 [ RVSOH  3 [RED 3 9 
[ RVSOFF 3 [ BLU  3 «LENTO" 

900  GETRÍ 1 IFA$=" "THEH900 
910  SP«VRL<A*> 

92@  IFSP<1THEH900 
33R  SP=SP#2 

940  PR I HT " [ CLR 3 [ 2CRSRD3 [ SPC 3 QUE [ SPC 3 
RNCHURfi [ SPC  3 DE [ SPC  3 TUHEL [ CRSRD 3 " 


► 


950  PR I HTTRB C 1 > " PREF I ERES? [ CRSRD 3 " 

960  PR I HTTRB  <1 > " [ RVSON 3 CRED 3 1 C RVSOFF  3 
[ BLU 3 «ESTRECHO [SPC 3 R[ SPC 3 C RVSOH 3 í RED 3 
9 [ RVSOFF 3 [ BLU  3 «ANCHO " 

970  RETA* : !FÑÍ=" "THEH970 
980  W=VRLÍñíJ 
990  I FW< 1THEN970 

1 @00  PRINT" [ CLR 3 [ 2CRSRD3 CUANTAS [ SPC 3 
VIDAS" 

1 0 í O PR  I HT  " [ CRSRD  3 C SPC  3 F'HRA  [ SPC  3 T I" 

1 820  PR I NT " C CRSRD 3 EN I SPC 3 EL I SPC 3 JUEG 


0C2CRSRD3" 

1 @30  I HFUTMCÍ : MC=VRL í MC* > : I FMC< 1 OR 

MO50  THEH  1000 

1040  PRINT" t CLP 3 [2CRSRD3EXTRRTERREST 

RES [CRSRD 3 “ ■ PRINT"CUfiHTOS?C2CRSRD3 " 

1 @50  PR I HT " [ RVSOH 3 [ RED  3 1 C RVSOFF  3 [ BLU 3 
=Ml  ICHOS [ SPC  3 fl [ SPC  3 [ RVSOH 3 [ RED 3 2@ [ RVSOFF 3 
[ BLU 1 «POCOS [ 2CRSRD 3 " 

1060  IHPUTALIEHSt 
\ 070  RL 1 EH=VRL C RL I EHÍ  > 

1080  IFflLIENCi  OR  ALIEH>20  THEH 1040 

1090  ALIEN=RLIEN+1 
1100  PR I NT " [ CLR  3 " : RETURH 
1110  POKEDI0  127 
1 1 2@  S3= < < PEER < PB  > AND 1 28 ) =0  > 

1130  POKEDI',255 

1 H0  P=PEEK(Pfi) • S2®< <PAND16>=0) 

1150  RETURH 
1160  POPE  VOZ..  0 
1 1 70  P0KE38422+H 1 +X 1 .•  2 
1180  P0KEU2+A 1 +X 1 ^ 33 
1190  P0KE36878» 15 
1200  POKE 36877  > 255 
1210  FOR  F=1  TO  100 
1220  P0KE36879 ¡ 104 
1230  P0KE36879; 14 
1240  NEXT  F 
1250  CR=CR+1 
1260  P0KE36877 , 0 
1270  P0KE36878 . 8 
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LOS  PELIGROS  DEL  POZO 


El  juego 


I juego  “Los  Peligros  del  Pozo" 
está  basado  sobre  un  principio 
muy  sencillo.  Tu  nave  espacial  se 
introduce  mediante  un  “Pokc"  en  la 
pantalla  en  la  primera  lila,  determi- 
nándose la  posición  exacta  mediante 
el  movimiento  del  “joysiick",  igual 
que  en  otros  programas.  El  pozo  de  la 
mina  v los  extraterrestres  salen  en  la 

jri* 

parte  inferior  de  la  pantalla.  Cada 
pozo  o nueva  lila  de  extraterrestres 
que  aparece,  hace  que  la  pantalla  se 


1280  IF  ÜR=MC  THE NI 330 
1290  PÜKEVOZ  .i  V 1 
1300  FÚKE36873 ¿ V 
1310  P0KE38422+ftI+Xl  , 1 
1320  RETURN 
1330  FTf-TIÍ 

1340  PRINT" [CLR  3 C2CRSRD] C3SP< 
DE [SPC] JUEGO. [CRSRD] " 

1 350  PP I NT " C SPC  3 HAS  C SPC  ] CHÜCI 


1380 

1370 

1380 


3 f i n í s p r:  ] 


PRINTCR, 11 [ SPC 1 VECES. C CRSRD 3 M 
PR I NT " C SPC  3 EN  C SPC  3 ** 
FT$=MIDi<:FT*,3,2)  + " JJ+MIIií(FTÍ 


1390  PRINTFTÍ 

\ 400  PR I NT 1 11  f 2CRSRD  3 C SPC  3 ÜTRR C SPC  3 VEZ 
CSPCKS/N)?" 

1410  GETflf : IFRf-" "THEN1410 

1420  1 FR$= " S " THENFÜKE S6S79 , 27  i PGKE36 

869,  240  - RUN 

1430  I FRÍ O " H 11 THEN 1410 


Lisiado  C-64 

10  rem 


20 

30 

40 


rem 

REM 

REM 

REM 


EL  POZO 


60  PF:INT"[CLR]M 

70  PGKE52 . 48  * FÜKE56, 48 : CLP 

80  P0KE56334* PEEK í 56334 > RMDE54 

90  P0KE1  .■  PEEK<  1 )flND251 

10ñ  FOR 1=010511 

1 1 0 POKE I + 1 2238 , PEEK < I +53248 ) 

1 20  NEXT 1 : POKE 1 , PEEK < 1 > 0R4 

130  P0KE56334, PEEK <56334  >ÜR1 

140  PÜKE53272,  <PEEKí:53272)RND240)  + Í2 


150 

160 


?N=  12298  Tü  12238+7 


170  POKEN ■ H 
180  NEXTN 
190  FÜRN= 12552 
200  RERPH 
210  POKEN, H 
220  NEXTN 
230  F0RN= 1 2734 


52  T0  1255 


2+r 


Tu  12734+7 


1 i 


240 

25Ü 

260 

270 

LU  IL  U4 
280 

790 


3 1 0 
320 
330 


JbU 
"j  y m 

■„,!  i hJ 


3 8 0 
79m 

iii  m m 

400 

410 

4 2 0 

40Ñ 

440 

450 

4 h M 

470 

420 


490 


54U 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 


660 

670 


690 


REflUH 

POKEN  , H 


PÜKE53281 , I 
VÜLUME=54296 
VCE-54273 
CSGRE  E N- 55 296 


CHRR=J024 
DFCSCREEN-CHRR 
DIMS$<40 > 

F§RN= 1 TÜ40 

Sí<N)srtU 

POR  H2“l  Tü  H 

S$<N>=Sí(H  > + ">,f 

NEXTN2 

NEXTN 

PRINT " [ CLR3 " 
GOSUBS60 
POKE 53281. .6 
V:=255 : V =10 
Rl-3  : FG=1  : U 1-1024 
U2= 1 064 : U3-2023 
T=1 -H=4 
TI i= "000010" 
DRTR22S, 164,27,40, 


DOTO 1 35 ■ 1 95 , 69 , 60 « 24 . 24 ■ 60 ■ 24 

DRTR285 ■ 129 , 189, 165, 165 ■ 189, 129 

T~8 ' R 1 a i 0 
pnpH-i  rn  40 

PP  I NT§$  < 4 > SPC  < 1 4 ' , S 4 < 3 ■■  ¡ : PRINT" 

NEXT 

OOTO620 

n=iNT<RNj:ia>*2>+i 
Js=  I NT  ( RHD  < 1 ) *RL  > + 1 
IFJ02  THEN  6OTO640 
Ffl=IHT <RM1K  1 )#3>+l  : FR=Fñ*Ii 
F4*T+INTíU/2>+Ffl 
IFF4>T+W  ÜR  F4ÍT  GOTÜ640 

IFF4«F'R  GÜTO640 

POKEU3-40+F4, 0 : PQKEU3-40+BF+F4, 1 


PR=F4 : IF  D=2  THEN  D=-l 
IFT+N+D>38  GOT  0680 
I FT +IKI 1 GÜ  T 0680 
T=T+Ii 
GOSUB730 

PR I NTSí  <T> ; SPC < tí ) ; *•$(. 39 


-T) 


Bvle  uno: 

** 

i i o o o a i i 

195  (decimal) 

Byte  dos: 

1 l 0 0 0 0 1 I 

195  (decimal) 

Byte  tres: 

0 1 0 0 0 1 0 0 

68  (decimal) 

Byte  cuatro 

: 0 0 1 1 1 1 0 0 

60  (decimal) 

Byte  cinco: 

0 0 0 1 10  0 0 

24  (decimal) 

Byte  seis: 

0 0 0 1 10  0 0 

24  (decimal) 

Byte  siete: 

0 0 1 1 1 10  0 

60  (decimal) 

Bvle  ocho: 

■■ 

00011000 

24  (decimal) 

Figura  L La  representación 

de  íos  hits  de  la  n ave  espacial  en  el  programa  ‘Los  Peligros 

1 

del  Pozo". 
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10  0 0 0 1 0 0 132 

Figura  2.  La  representación  de  los  bits 
del  extraterrestre  del  programa  " Los 

Peligros  del  Pozo M. 


710  OOSUB1420 

720  OOTO560 

730  GOSUB1150 

740  FOR  0=1  TO  SPiNEXT  O 

750  POKEUl+fll ¿ 32 

760  IFS2=- 1 THENAl=flHT 

770  IFS3=1  THENftl*fil-l 

780  IFflKlTHENfllsl 

750  IFAl>39THENflí -39 

800  LF*PEEK<U2+fll>  IF  LF-32GÜTÜS30 

820  GOSUB1 21 0 

830  POKEUl+fll t 33 

840  PÜKEUl+fli+DF, 1 

850  RETURN 

860  PR I NT  ” C OLR  3 C 2CRSRD  ] í BLU  3 

870  PR  INTTRBí  13)  "EL [SPC  ] PÜZOC  2CRSRD  J 


880  PR I NTTRB í 8 > " QUE C 8PC ] VELOC I DAD í SPC ] 
PARA E CRSRD]"  ' 

89Ü  PR  i NT Tñ£  í 1 3 ) 11  EL  C SPC  3 P020?  [ CRSRH 1 


900  PR I NTTRB í 6) " [RED]] í RVSOFF 3 [ BLU ] í SPC ] 
< RRP I DO > C SPC 1 R C SPC  3 C RED  3 9 C RVSOFF 1 C BLU  3 

[ SPC  K LENTO)" 

910  GETft*:  rFR*»,M,THEN910 

920  SP=VALÍ R$ ) 

930  IFSP<1 THEN91 0 
940  SF=SP*2 

950  PRINT"  [ CLR 3 C2CRSRD3 " TRB < 8 > " QUE í SPC 3 
ANCHURA [SPC 3 SE í CRSRD ] " 

960  PR I NTTRB í 8> M POZO [ SPC 3 PREF I ERES? 


970  PRINTTflBÍSV1  [RED]  1 C RVSOFF  3 [BLU  ] [SPC  3 

( ESTRECHO > [ SPC ] R C SPC 3 C RED  3 9 [ RVSOFF 3 F BLU 3 

[ SPC  3 (ANCHO  í 11 

980  GETAí  IFfl$=,J,tTHEN980 

990  N=VflL<RÍ> 

1000  IFLK1 THEN980 

1 ñ 1 0 PPIHT11  [CLP3  C2CRSRD  3 " ,¡  THBC8>HCUR 
NIAS [ SPC 3 VIDAS" 

1 OSO  PR I NTTRB c 8)  11  [ CRSRD] PARA C SPC 3 TI  " 


desplace  hacia  arriba,  acercándose  a 
tu  nave.  H1  programa  comprueba  para 
ver  si  la  posición  que  ocupará  tu  nave 
es  un  espacio.  Si  no  lo  es,  tu  nave  ha 
chocado. 

Tanto  el  desplazamiento  del  pozo 
hacia  la  derecha  o la  izquierda  como 
las  posiciones  de  los  extraterrestres  se 
elige  al  azar.  Sin  embargo,  tü  decides 
la  frecuencia  con  que  aparecen.  El 
juego  puede  resultar  tan  sencillo  o tan 
complicado  como  tu  quieras.  Pero, 
cuidado,  no  elijas  d pozo  más  estre- 
cho, ni  la  velocidad  más  rápida. 


1Ü70  PR I NTTRB (8) " [RED] 1 [RVSOFF] [BLU 3 
[ spr:  ] MUCHOS)  [ SPC  3 HE  SPC  3 [ RED  3 20  [RVSOFF  ] 
[ BLU ] [ SPC  3 < POCOS) [ 2CRSRD 3 " 

1O80  PRINTTRB<3>"" ; 

1090  IMPUTALIENS* 

1100  AL IEN=VAL< ALIENSE 
1110  1FRLIENC1  Oft  ALIEN>20  THEN1060 
1120  ALIEN=AUEN+1 
1130  PRINT" [£VN3 " 

1140  RE TUR N 
1150  JV=PEEK (56328) 

1160  J V= 1 5- i JVRND 15) 

1170  I F ■ J V AND4  THEN  S3= 1 : S2=0 : GOTO  12 
00 

1180  IFJV  RNB0  THEN  S2=»l:£3=0  GÜT01 


PRINT"  GCVN3 " 

RE TUR N 

JV=PEEK (56320) 

J V=  1 5-  ( JVRND  15) 

IFJV  AND4  THEN  S3-1 =32=0  = GOTO  12 


1190 
1200 
1210 
1220 
1 2 3 0 
1240 
1250 
1 260 
1270 
1280 


$2=0:83=0 

RETURN 

POKECSCREEN+fll+Xl j 2 
POKEU2+A1+X1 33 
POKEVÜLUME h 15 
PÜKEVCE ■ 40 : PÜKE54276 , 23 


1 3 1 0 
1320 
1330 
[SPC 
1340 


FÜRF=1  T0  100 
NEXT  F 

POKEVÜLUME. ' 0 

|"  |™'  +■  I. 

IF  CR=MC  THEN  G0TÜ1320 
POKEeSCREEN+fll+Xl, 1 
RETURN 
FT  Í=T I í 

PR I NT " C CLR  I [ 2CRSRD I " TñB < 1 2 ) "FIN 
] DE [ SPC } JUEGO. C CRSRD I" 

F'R I NTTRB < S>  "Hfl S [ S F:' C ] CHOC ñ H O [ C R S 


1 0T-:ñ  pR  I NTTRB  < 8 > " L C RSRB  3 EN  C SPC  í EL  I S P( 
JUEGO [¿CRSRD 3" 

104@  PRINTT'fliÉS) " " .■ 

1050  IMFUTMCÍ  ■ MC-VflL  í MCÍ  > : IFMCÍ1  O R 
MOFO  THEN  1010 

1 fl F ri  F:'R  I HT " [ CLR ] C 2CPSRD I " TñB  ■"  7 > " CUAN 
TOS [ SPC 1 EXT Rft TERRESTRES C SPC I ? C CRSRD I 


. 

' 

I : - 


1 350  PR I N T Tfi  B C 8 > C R , " [ SP  C 1 VECES . E CRSR D ] 

IJ 

1 360  PR I H TTñB í 3 > " [ CRSRD ] EN [ 2C RSRB J " 

1 370  FTÍ =M I Ii $ í FTí  ,3.2  • Oí < FT# 

5> 

1 380  PRIHTTñBC l£>FTí 
1 390  PR I NTTñB C 1 2 > " [ 2CR3RB 1 OTRA  C 8 PC ] V 
EZ I SPC  3 (,  S/N  T ? " 

1400  GETñí ■ IFñí=""THEH1400 
1410  IFflt="S,'THENRUN 
1415  IFñJO"  N " THEN  1 400 
1417  EN  I' 

1420  FÜKEVÜLUME,  15 
1430  PÜKEVCE, 32 
1448  POKEVCE,0 
1430  POKEVÜLUME, 0 
1 460  RETURN 


I 


1 1 1 1 1 1 1 1 

255 

10000001 

129 

10  111  1 0 1 

189 

10100101 

165 

10100101 

165 

10  11110  1 

189 

i 0 0 0 0 0 0 1 

129 

11111111 

255 

Figura  3,  La  representación  dé  los  bits 
de  las  paredes  del  pozo  del  programa 

" Los  Peligros  del  Pozo”. 
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número  de  línea  (codificado  en  binario), 
dos  h y los  que  apuntan  la  siguiente  linea  de 
secuencia  en  Basic,  y un  solo  byle  utili- 
zado como  el  indicador  de  lín  de  linea. 
Cuando  se  combinan  dos  lineas  de  pro- 
grama en  una  sola  línea,  se  ahorran  cuatro 
bytes,  los  cinco  byies  desperdiciados 
menos  un  byte  para  los  dos  puntos  que 

separan  las  sentencias. 

Pero  hay  que  tener  cuidado;  no  es  siem- 
pre válido  o corréelo  combinar  las  líneas 
del  programa.  Se  podría  mod iticar  el  flujo 
del  programa  o crear  parte  Je  una  linea 
del  programa  que  nunca  llegaría  a ejecu- 
tarse, Hay  que  tener  un  cuidado  especial 
con  las  sentencias  11',..  I hen...  y GUIO. 
Merece  la  pena  comprobar  que  la  nueva 
linea  de  programa  sigue  realizando  lo  que 
se  deseaba. 


Si  utilizas  un  C-64,  la  RAM  disponible 
para  que  el  usuario  escriba  sus  propios 
programas  normalmente  es  suficiente.  Sin 
embargo,  un  VIC-2Ü  no  ampliado  limita 
ser  iamente  las  capacidades  del  usuario. 

Esos  trucos  podrían  ser  de  ayuda.  Al 
final,  el  usuario  seguramente  vera  la  nece- 
sidad de  añadir  más  memoria,  pero 
incluso  en  ese  caso,  estas  técnicas  te  per- 
mitirán hacer  “más  con  menos”. 

La  técnica  más  común  para  salvar  espa- 
cio es  la  de  no  utilizar  comentarios  en  el 
programa.  Esto,  sin  embargo,  dificulta  la 
documentación  del  programa  y sr  el  usua- 
rio quiere  realizar  algún  cambio  más  ade- 
lante, podría  tardar  bastante  en  recordar 
la  función  de  cada  variable  y cómo  se  eje- 
cuta el  programa.  Para  más  seguridad,  es 
mejor  tomar  apuntes  y guardarlos  a 
medida  que  se  escribe  el  programa. 

Otra  técnica  es  la  de  poner  varias  sen- 
té nci as  en  una  linea,  haciendo  uso  de  dos 
puntos  para  separarlas.  Se  desperdician 
cinco  byte,s  en  cada  linea  de  programa  en 
Basic,  sin  tener  en  cuenta  su  longitud. 
Estos  consisten  en  dos  bytes  para  el 


Aprende  algunas  técnicas 
para  sacarle  el  jugo  al 

VIC-20  no  ampliado.  No 
sea  VICtima  de  la  crisis  de 
memoria. 


Más  trucos  para  ahorrar  espacio 

Oiro  método  para  ahorrar  espacio  es  el 
de  borrar  todos  los  espacios  no  nece- 
sarios del  programa.  El  Basic  de  Comino- 
dore  no  requiere  espacios  de  separación 
dentro  de  las  sentencias  de!  programa.  Las 
palabras  clave  en  Basic  se  almacenan 
como  signos  codificados  de  un  solo  byte 
cuando  se  introduce  una  linca  de  pro- 
grama mediante  el  teclado.  Cuando  el 
programa  se  interpreta  y se  ejecuta,  los 
signos  se  identifican  fácilmente  dado  que 
los  códigos  que  poseen  son  únicos.  Los 
espacios  de  separación  son  simplemente 
ignorados. 

Aunque  ¡as  palabras  clave  en  Basic  se 
almacenan  como  signos  de  un  solo  byte,  el 
resto  del  texto  en  una  linea  de!  programa 
se  almacena  igual  que  se  teclea,  un  carác- 
ter por  byte.  Por  lo  lamo,  se  puede  aho- 
rrar más  espacio  si  se  utilizan  números  de 
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linea  mas  bajus  y nombres  devariables 
más  cortos.  Si  se  utilizan  los  números  de 
linca  1 . 2 y 3 en  vez  de  EOOO,  2000  y 3000, 
se  ahorran  lies  bytcs  en  cada  sentencia 
<ÓOlO  o CjOSUB  que  utilice  estas  líneas. 
Además,  las  variables  se  pueden  a pr ove- 
chai  al  máximo,  igualándolas  a los  valores 
utilizados  con  más  frecuencia.  Esto  es 
aplicable  especial  mente  a Jos  l\st rings".  El 
puntero  de  las  variables  de  “sí  ring"  apun- 
tará al  texto  de  la  línea  del  programa 
Ba sis  donde  se  define  la  variable,  en  vez 
de  utilizar  el  espacio  de  variable  al  final  de 
mem  oria. 

Además,  es  mejor  volver  a utilizar  tas 
variables,  siempre  que  sea  posible,  en  vez 
de  definir  variables  nuevas  cada  vez  que 
hace  falla  realizar  un  cálculo.  Cuanto 
menos  espacio  se  utilice  para  las  variables, 
más  espacio  estará  disponible  para  el 
programa. 

Se  debe  de  evitar  el  uso  de  “arrays" 
(para  permitir  almacenar  más  datos) 
cuando  las  variables  simples  sirven  igual, 
dado  que  un  1 'afra y’'  tiene  más  desperdi- 
cio. Si  resulta  necesario  utilizar  un 
“array'f,  es  imprescindible  declarar  so- 
ta maño  v utilizar  el  elemento  cero. 

mé 

Hay  que  tener  cuidado  con  el  uso  de  las 
variables  de  enteros.  Las  variables  de 
enteros  simples  ocupan  dele  bytcs  cada 
una,  mientras  que  los  elementos  de  los 
“airavs"  de  las  variables  ahorran  memo- 
ria  mediante  el  uso  de  solamente  dos  byles 
por  elemento,  Si  se  utiliza  una  variable  de 
entero  simple  como  Kvi.  se  desperdicia 
mucho  espacio  con  el  uso  del  signo  del 
porcentaje  cada  vez  que  se  hace  referencia 
a la  variable. 

Además,  es  importante  recordar  que  el 
Basic  fija  un  valor  por  defecto  para  cada 
variable  la  primera  vez  que  ésta  se  encuen- 
tra durante  la  ejecución  del  programa;  los 
“strings1vse  fijan  en  un  "string"  nulo  y las 
variables  numéricas  se  fijan  en  cero...  No 
hace  falla  inicial  izar  las  variables  a estos 
valores,  dado  que  el  Basic  ya  lo  hace. 


Siempre  que  sea  posible  se  debe  de  sal- 
tar la  puntuación  dentro  de  las  sentencias 
Print  que  contengan  varias  unidades  de 
información,  Si  se  imprimen  las  variables 
separadas  por  un  texto,  como,  por  ejem- 


dol  usuario  de  si/ no  en  varios  puntos  a lo 
largo  del  programa,  esta  función  debe  ser 
realizada  por  una  sub  rutina,  la  cual  se  ni 
llamada  todas  las  veces  necesarias. 

Si  existen  bucles  anidados  de  Por... 
Next  que  tengan  un  punto  común  de 
salida,  las  siguientes  sentencias  Nexl 
deben  ser  combinadas: 


100  PRINT  “LENGHT—  ;X 
WlDTH- EVA  AREA- 


resulta  más  fácil  utilizar 


100  PRINT  “LENGHT=”X” 
WIDTH- 'Y”  AREA=“Z 


No  hace  falta  utilizar  los  punios  y 
comas  de  separación,  dado  que  el  intér- 
prete Basic  da  por  hecho  que  existe  un 
punto  y coma  de  separación  entre  ¡as  uni- 
dades de  información. 

Se  utilizan  las  funciones  TAB  y SPC 
para  evitar  d uso  de  espacios  adicionales  en 
las  sentencias  Print,  Hay  que  tener  en 
cuenta  que  estas  funciones  desplazan  el 
cursor  a la  derecha  el  número  de  espacios 
necesarios.  Estas  funciones  no  se  pueden 
utilizar  para  borrar  algo  de  la  pantalla, 
dado  que  un  carácter  de  espacio  no  se 
imprime. 

Además,  las  subrulinas  siempre  deben 
utilizarse  para  realizar  las  funciones  nor- 
ma.! es  que  se  necesitan  en  varios  puntos 
determinados  del  programa.  Si  se  necesita 


May  que  tener  cuidado  de  listar  las 
variables  en  orden  correcto,  \ no  olvidar 
que  el  bucle  interior  terminará  primero. 
Piñal  mente,  hay  que  evitar  el  uso  de  los 
paréntesis  cuando  no  son  realmente  nece- 
sarios para  la  interpretación  correcta  tic  la 
sentencia.  Es  imprescindible  recordar  el 
orden  de  prioridades  de  las  operaciones 
demostradas  en  los  manuales. 

Espero  que  esta  información  resulte  útil 
para  que  tus  programas  quepan  eii  el 
espacio  disponible.  En  general,  la  mayoría 
de  las  técnicas  para  ahorrar  espacio  tam- 
bién proporcionarán  un  tiempo  de  ejecu- 
ción más  rápido. 


Constantes  y Comillas 

Los  datos  constantes  utilizados  por  un 
programa  pueden  ser  introducidos  en 
un  ltan  ay"  mediante  lectura  a partir  de  un 
fichero  de  datos  externo  de  cinta  o disco, 
en  vez  de  hacerlo  a partir  de  las  sentencias 
de  datos  dentro  de]  programa.  Por  otro 
lado,  los  datos  se  pueden  utilizar  direcla- 
men Le  de  las  sentencias  '"Data11  sin  que  se 
coloquen  en  un  “array'E  y se  pueden  vol- 
ver a utilizar  todas  las  veces  necesarias 
mediante  el  uso  del  comando  “Resto  re  A. 

I amblen  se  puede  ahorrar  espacio  omi- 
tiendo las  comillas  que  contienen  los  valo- 
res de  los  elementos  “string"  en  las  sen- 
tencias “Data".  Las  comillas  sólo  son 
necesarias  si  existen  espacios  o caracteres 
especiales  como  gráficos,  controles  del 
cursor,  comas,  dos  puntos,  etc.,  dentro  de 
las  sentencias  “Dala". 

También  se  pueden  omitir  las  comillas 
de  cierre  en  cualquier  sentencia  Print  si 
ésta  no  va  seguida  por  otra  unidad  de 
información  que  se  llene  que  imprimir 
dentro  de  la  misma  sentencia,  o por  dos 
puntos  y otra  sentencia  Basic.  El  Basic 
añadirá  automáticamente  las  comillas  de 
cierre  c imprimirá  la  línea, 
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suponer  un  incremento  del  tamaño  del 
programa. 

Para  empezar,  se  deben  de  utilizar  las 
variables  en  vez  de  las  constantes,  dado  que 
se  recupera  el  valor  de  una  variable  simple  o 
de  “array"  de  las  tablas  de  variables  más 
rápido  que  realizar  la  operación  de  conver- 
tir una  constante  de  una  sentencia  de  pro- 
grama en  su  representación  interna  de 
punto  flotante.  Por  ejemplo,  si  se  utiliza  el 
numero  256  varias  veces  a lo  largo  del  pro- 
grama, hacernos  P-256  y que  se  utilice  Ja 
variable  P cuando  se  hubiera  usado  256. 

Las  definiciones  de  Jas  variables  se  tienen 
que  ordenar  con  cuidado.  Las  variables  se 
definen  en  la  tabla  interna  de  variables  en  el 
orden  en  que  se  encuentren  durante  la  eje- 
cución del  programa.  Cuando  el  programa 
se  refiere  a una  variable,  el  Basic  tiene  que 
barrer  ¡a  tabla  de  variables  desde  el  princi- 
pio para  encontrar  el  valor  deseado.  Dado 


ahora...  Es  la  hora  de 
ahorrar  tiempo. 


Después  de  aprender  a ahorrar  espacio 
cuando  escribes. tus  programas  en  Basic,  ha 
llegado  el  momento  de  aprender  a ahorrar 
tiempo  también.  Sin  embargo,  hay  que 
tener  en  cuenta  que  la  mayoría  de  las  técni- 
cas utilizadas  para  ahorrar  tiempo  podrían 
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realiza  ninguna  verificación  para  saber  si  la 
variable  utilizada  realmente  es  la  misma  que 
la  de  la  sentencia  Por  más  reciente. 


Otra  técnica  para  ahorrar  tiempo  es  la  de 
combinar  operaciones  cuando  sea  posible 
dentro  del  flujo  normal  del  programa.  Si  el 
programa  va  a introducir  datos  mediante  la 
lectura  en  un  “array"  y a continuación  los 
va  a clasificar,  resulta  útil  colocar  Ja  entrada 
en  la  posición  correcta  dentro  del  "array"  \ 
desplazar  las  entradas  restantes  de  acuerdo 
con  esto  a medida  que  se  Ice  cada  unidad  de 
información. 


tsle  método  resulta  especialmente  útil 
cuando  los  dalos  se  introducen  manual- 
mente desde  el  teclado.  A lo  mejoi  stL  apre- 
cia una  pequeña  pausa  entre  una  entrada  y 
la  siguiente,  pero  mas  adelante,  cuando 
haya  que  clasificar  una  matriz  entera  una 
pausa  más  larga  podría  resultar  molesta. 

Como  dije  ames,  los  programas  más 
rápidos  no  son  siempre  los  nías  cortos; 
normalmente  se  puede  llegar  a un  compro- 
miso. Resulta  mucho  más  rápido  imprimir 
la  letra  A 40  veces  con  una  sola  sentencia 


que  las  variables  que  se  hayan  definido  pri- 
mero se. ii  las  primeras  que  se  localizan,  será 
más  útil  si  se  definen  primero  las  que  se 
Utilizan  mas.  Incluso  podría  ser  una  ven  laja 
definir  ciertas  variables  con  valores  de 
prueba  al  principio  det  programa  para  que 
entren  en  la  tabla  de  variables  en  un  orden 
especifico. 


ífi  mejor  definir  las  variables  simples 
■ mies  de  utilizar  un  "array”  largo.  Cuando 
v define  una  variable  simple,  el  Basic  debe 
desplazar  los  “arrays"  existentes  en  la 
memoria  para  hacer  espacio  para  la  entrada 
de  la  nueva  variable  simple,  y de  acuerdo 
con  esto  debe  modificar  Lodos  los  punteros 
di  "urrays"1  relacionados  con  dicho  Nfitrray'\ 

p 

ts  aconsejable  colocar  las  subru tinas  más 
mi  i/.LLLÍas  cerca  del  principio  del  programa 
v utilizar  una  instrucción  simple  de  GOTO 
para  saltar  las  subru  linas  cuando  empieza  el 
programa*  El  Basic  normalmente  busca  a 
partir  de]  principio  del  programa  para 
encontrar  la  linea  de  la  subrutina,  así  que  si 
se  colocan  las  subrutinas  cerca  dd  final  del 
programa  se  pierde  mucho  tiempo,  sobre 
ludo  si  la  subru  Lina  se  utiliza  para  leer  o 
escribir  los  ficheros  de  datos. 

En  realidad,  el  Basic  no  siempre  tiene  que 
barreré!  programa  a partir  dd  principio  del 
programa  para  encontrar  la  línea  de  la 
subrutina*  Si  el  numero  de  linea  llamado  es 
mayor  por  256  por  lo  menos  que  la  linca 
que  llama  la  submiina,  d Basic  empezará  a 
barrer  a partir  de  la  línea  actual.  Sin 
embargo,  de  esta  forma  también  se  puede 
perdet  d tiempo,  dado  que  la  subru  lina  no 
L’ülii  siempre  cerca  de  la  línea  que  hace  la 
llamada. 


Examina  el  contenido  y la  estructura  de 
oída  huele  For-NexU  el  cual  es  posi ble- 
mente  el  proceso  que  mas  tiempo  pierde  sj 
iiou1  utiliza  como  es  debido.  Las  sentencias 
que  no  necesitan  repetirse  para  cada  repeti- 


ción del  bucle  deben  quedarse  fuera  dd 
bucle.  Si  un  valor  tiene  que  calcularse  o un 
valor  dd  Nubstring”  se  utiliza  una  y otra 
vez  dentro  dd  bucle,  se  debe  de  calcular  el 
valor  una  vez  y definirlo  como  otra  variable 
que  puede  ser  utilizada  según  sea  necesario. 


Va  que  estamos  hablando  de  los  bucles 
For-Next,  es  importante  acordarse  de  no 
uiil ¡zar  Eas  sentencias  Next  con  las  variables 
de  índice*  La  sentencia  Next  resulta  un  poco 
más  rápida  que  Next  X dado  que  no  se 


Prini  "A  A,.,r  AA”  que  tener  que  utilizar  un 
bucle  Eor...  Next  como  el  que  sigue; 

Por  X—  1 TÜ  40;  Print  “A”;:  Next  X 

Por  otro  lado,  el  bucle  Eor...  Next  ahorra 
bastante  espacio  de  memoria  comparado 
con  la  sencilla  sentencia  Print,  Lodo 
depende  de  lo  que  quieres  conseguir  y lo 
que  tú  consideras  más  importante:  ahorrar 
tiempo  o espacio.  A veces  estas  dos  cosas 
pueden  resultar  totalmente  opuestas.  ■ 
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Por  Diego  ROMERO 


“Guarda  el  acumulador  en  la  memo- 
ria.,/’ Con  esta  instrucción  vamos  a 
ver  otro  ejemplo  de  direccionamiento 
absoluto: 

En  basic:  POKH  A,  4097  equivale  a 
S I AS  1 00 1 en  máquina. 

No  necesita  explicación  porque  ya 
conocéis  la  función  de  POKE  en 
basic,  y la  de  STA  en  máquina  es 
idéntica. 

Debemos  hacer  otra  aclaración,  en 
código  máquina  no  escribimos  di  rec- 
lámeme LDA  o STA,  estos  son  códi- 
gos mnemónicos  que  facilitan  la  pro- 
gramación con  ayuda  de  un  ensambla- 
dor, ya  que  el  lenguaje  máquina  sólo 
tiene  ceros  y unos  y sería  difícil  saber 
de  memoria  todos  los  códigos  de  las 
instrucciones  si  no  guardasen  algún 
parecido  con  la  función  que  realizan. 

En  C.M.  la  instrucción  LDA#2 
sería  $A9  $02,  y LDA$100G  sería 
SAD  S00  S 10  mientras  que  STAS10Ü I 
es  $8D  $01  $10.  Parece  bastante  más 
complicado  que  los  mnemónicos  ¿ver- 
dad? 

Para  pasar  los  mnemónicos  a C.M. 
podemos  utilizar  un  ensamblador 
(existe  un  cartucho  para  el  VIC  y otro 
para  el  C-64),  o hacer  la  conversión  a 
mano  con  ayuda  de  las  tablas  que  van 
apareciendo  en  la  revista.  Mas  ade- 
lante explicaré  cómo  se  pueden  utili- 
zar estas  tablas. 

Ahora  vamos  a fijarnos  en  un  deta- 
lle, ¿pensabais  que  me  equivoqué  al 
poner  SAD  $00  §10?...  No  es  asi,  la 
CPU  lee  primero  la  parte  más  baja  de 
la  dirección,  y luego  la  parte  alta,  por 
eso  debemos  colocarla  al  revés  si  lo 
hacemos  sin  ayuda  del  ensamblador, 
la  dirección  SAFD9  se  escribiría 
como  SD9  y $AF. 

Creo  que  de  momento  es  bastante 
rollo,  hemos  visto  las  instrucciones 
más  sencillas  (de  carga  y almacena- 
miento) y los  dos  modos  de  direccio- 
namiento más  fáciles  (inmediato  y 
absoluto),  si  queréis  podéis  echarle 
un  ojo  a cualquier  listado  de  un  pro- 
grama en  código  máquina  y ver  estas 
instrucciones  y su  aspecto,  en  el  pró- 
ximo número  explicaré  los  otros 
modos  de  direccionamiento  y algunas 
instrucciones  más  complicad] lias... 


1 igual  que  en  BASIC  podemos  más  simple  y la  instrucción  mas  scnci- 

colocar  los  datos  de  un  programa  lia:  “LDAA  Pero  si  quisiésemos  hacer 

^®en  el  propio  programa  con  que  A tomase  el  valor  de  otra  posi- 

A=24  o con  sentencias  DATA  en  una  ción  de  memoria  que  no  fuese  3a 

tabla  y hacer  READ  A 6 con  un  siguiente  a la  instrucción  tendríamos 

1NPUT  A y dándole  el  dato  desde  el  que  utilizar  otro  modo  de  Direccio- 

teclado,  en  código  máquina  podemos  n amiento, 

colocar  los  datos  en  distintos  sitios,  y 
para  que  la  CPU  pueda  acceder  a 

ellos,  está  dotada  de  distintos  “Modos  . . . , 

de  Direccionamiento”,  vamos  a estu-  DirccciOílU  miento  Absoluto 

diarios  un  poco  y más  adelante  volve- 
remos a verlos  más  detenidamente. 

El  modo  de  direccionamiento  es  la 
manera  en  que  cada  instrucción  de  un 
programa  efe  código  máquina  accede 
a los  datos  sobre  los  que  tiene  que 
operar,  e)  más  sencillo  es  el  inme- 
diato, veamos  este  modo  y su  equiva- 
lente en  basic  para  facilitar  la 
comprensión. 


Se  ponen  detrás  de  la  instrucción 
dos  bytes  que  apuntan  a la  posición 
de  memoria  donde  se  encuentra  el 


En  Basic:  A=PEEK  (4096)  como 
4096  pasado  a hexadccimal  es  $1000, 
en  C.M.  sería  LD AS  1000,  esta  ins- 
trucción carga  en  el  acumulador  lo 
que  contenga  la  posición  de  memoria 

$1000=4096, 


Una  advertencia  antes  de  seguir: 

Estoy  utilizando  en  los  ejemplos 
BASIC  la  variable  A,  pero  esto  no 
quiere  decir  que  ésta  tenga  nada  que 
ver  con  el  registro  A de  la  CPU  de 
nuestro  micro,  es  simplemente  por 
facilitar  el  equivalente. 

Hemos  visto  la  instrucción  de  carga 
LDA,  pero  ahora  vamos  a conocer 
una  instrucción  de  almacenamiento 
STA,  que  significa  “STore  Accumula- 
tor  ín  mernorv'1  y en  castellano  es 


Direccionamiento 


El  operando  de  la  instrucción  esta 
situado  justo  detrás  de  la  propia  ins- 
trucción, por  lo  que  no  requiere  acce- 
der a más  posiciones  de  memoria. 
En  Basic  diríamos:  LET  A=  2 o 
simplemente  A =2. 

En  C Máquina  decimos:  LDA# 2 
que  quiere  decir  carga  en  el  Acumula- 
dor el  valor  2.  (LoaD  Accumulator), 
Hemos  visto  dos  cosas  al  mismo 
tiempo,  el  modo  de  direccionamiento 
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SOFTWARE 

COMMODORE  64 


COMMODORE  64 


MUTANTCAMELS 


CU □ □ IV  CUBORT 


MATRUC 


SINCLAIR  SPECTRUM* 

* PENETRATOFI 

- TIME  GATE 

* EL  JUGADOR  Di  A,,FDRF 7 

* A3.TROBLASTEP 

* COMECOCOS 

* HORMIGAS 

* TRAXX 

* DISEÑADO^  DE  JUEGOS0 

* LA  PULGA  i BUG  ABOO' 

* BILLAR  AMERICANO 

* El  PINTOR 

- MIS' LES 

* RAPTORES  DE  lA  GALAXIA 

* WINGED  AVENGER 

* INVASORES  & GAL  AXIANS 

* EORTH 

* BASF  DE  DATOS 

* MATEMATICAS 

* ARITMETICAS  BASICAS 

* TUTOR 


COMMODORE  64 

* SPBlTí  MAN 

* F ROGGFR 64 
■ SNAKF 

* ANlHIlATOR 

* PAK ACUDA 

* \ X TERMINA  TOR 

* VÜBTF  X RAIOFR 

- DEFENDER  f 4 

* LASER /ONE 

* CHOPFLlTFH 

* ZAXXGN 

* jumpman 

* FORT  APOCAllPSE 

* FUI  BOLIN 

* HORACIO 

- PROCESADOR  TEXTOS 

* MAILING  Y ETIQUETAS 

* CQNTAFilUDAO 
PERSONAL 

* RASE  DE  DATOS 
FICHERO 

* ultrarasig 

- SLNTHY64 

* FORÍH  TlNV 


ATARl 

ROO  PROG 


APPLE 

ROO  PROG 


VIC  20 

ZOO  -ROG 


IBM 

3 5C  PROG 


HEVE M GE  MUTANT  LAMEIS  Cas.  2.2 00 


DRAGON  32 

60  PROGRA  vi  AS 


SINCLAIR  ZX81 

1 00  PROGRAMAS 


Ya  a la  venta  en 


Distribuidores  autorizados  y por  Correo 


LVf R BOVER  Casa  2 200  BUbABUU  LA  "ULbA 

Los  programas  para  Scectium  son  cameroahíados  únicamente  v en  e*cl 

Estamos  en  la  Feria  de  la  Informática 
"EL  CORTE  INGLES"  Castellana,  del  4 al  28 
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COMMODORE  64 


ES  MUY  DI 


ER  MODESTO 


Cuando  se  tiene  un  ordenador  personal 
con  64K  de  memoria,  una  magnífica  resolución, 

16  colores,  efectos  tridimensionales 


de  programas  educativos,  profesionales 


y de  video-juegos...;  en  resumen,  cuando  se 


tiene  un  ordenador  personal  como  no  existe 


con  "sprites",  un  sonido  equivalente  ningún  otro  en  el  mercado  y el  más  vendido 


al  de  un  sintetizados  un  teclado  profesional  mundialmente,  cuando  se  tiene 


con  62  caracteres  gráficos, 
toda  una  amplia  gama  de  periféricos 


el  Commodore  64,  es  muy  difícil  mostrarlo 


profesionales,  la  más  completa  serie 


sin  que  el  orgullo  se  te  note. 
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EL  ORDENADOR  PERSONAL  DELA  FAMILIA  MAS  POTENTE 


- Sistemas  de  gestión  profesionales  series  8000  Y 700,  - Ordenador  po rtáti I SX  64. 
— Ordenador  personal  COMMODORE  64.  -Ordenador  familiar  VIC  20. 


commodore 


COMPUTER 


MICROELECTRONICA  Y CONTROL,  S.A. 
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